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EDITOR’S INTRODUCTION 
William B. Sanders, Ph. D. 


How many times have you heard someone say, “But what can 
you do with your computer?” This is an important question for 
both new owners of computers and those who are considering 
the purchase of their first home computer. For those who have 
a VIC-20, that question is not limited by the number of things 
one can do, but rather by the exhaustive list of applications! 


There are two ways to make your computer operate. One way 
is to buy programs and run them on your computer. Just let 
them do their magic, sit back, and watch. The other way is to 
learn how to write and program your own software. The first 
method can be somewhat expensive, but you have access to 
programs that do everything from word processing to playing 
games. The second method can be a lot of fun, but it takes time 
for you to learn to program your computer to do exactly what 
you want it to. 


This book represents a third alternative. It helps you learn how 
to write programs, and at the same time, provides you with 
programs you can use right away. If you are not interested in 
learning how to program, just key in the programs as they 
appear in this book, and then SAVE them to tape or disk. When 
you want to use them. Just LOAD and RUN them, and they 
will happily perform. On the other hand, if you want to learn 
how to program at the same time you are copying application 
programs, this book will show you many programmer’s tricks. 
The best way to learn something is to be shown a useful ap- 
plication, and the programs in this book do just that. 


The VIC-20 Experience was designed to provide a wide range 
of applications which can be of use to almost everyone. It is 
arranged into five distinct sections: 
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I HOME 

Il EDUCATION 

Hl ENTERTAINMENT 

IV. BUSINESS 

V UTILITIES and PROGRAMMING AIDS 


The first part is a collection of programs that have a wide 
variety of applications in the HOME. Domestic chores, such as 
cooking, are made simpler with a Recipe Book program that 
will give you immediate access to your favorite recipe. (It won’t 
fix dinner... yet.) For EDUCATIONAL applications, you will 
find several programs to help children learn everything from 
their Math to the Capitals of the various states. Third, the 
ENTERTAINMENT section has a number of games you can 
play with your computer, as well as a drawing program to create 
designs and pictures in high resolution (also referred to as hi- 
res) graphics. For the businessperson, there are several pro- 
grams to aid in making decisions and planning finances. If you 
would like to see stock market graphs, the Business Graph 
program will make annual graphs for you. Finally, for the pro- 
grammer, there are several UTILITY and PROGRAMMING 
AID programs. “Utilities” are programs that help you program. 
You want to write a graphics game, but don’t like the standard 
character set? The Character Creator will help you design your 
own graphic character set. Several other utilities will help the 
programmer both in writing programs and in understanding 
how to program. 


As you can see, The VIC-20 Experience has a wide variety of 
computer applications. What’s more, you can modify the pro- 
grams to suit your own particular needs and tastes. All of the 
programs are clearly presented and explained, and while they 
will work perfectly well as they are presented, there is no mys- 
tery if you want to change them. 


The author of The VIC-20 Experience, Mike Klein, is a seasoned 


programmer not only on the VIC-20, but on other microcom- 
puters as well. With an eye on both clarity and practicality, 
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Mike created this collection of programs so that they could be 
used and understood by both novice and experienced 
programmers. 
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Section 1 


Programs for the Home 


Recipe BOOK 
Shopping List 
Phone Book 
Kitchen Metrics 
Budget Helper 
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PROGRAMS FOR THE HOME 


There are many ways to use a computer at home. Obviously, 
it is possible to use several of the programs under EDUCA- 
TION, ENTERTAINMENT, and BUSINESS in the home, but 
in designing programs for the home, I was somewhat stumped. 
After all, what exactly is “the home’? Does it mean entertain- 
ment for the kids or help for a housewife? Does it signify busi- 
ness programs for fathers and mothers? Well, the first and last 
are already covered, so I chose to help the person in between. 
The programs I thought would be the most useful around the 
house are a Phone Book (also a handy program for your busi- 
ness), a Recipe Book (to keep track of recipe data), and a Shop- 
ping List program (prints out a weekly shopping list when 
items are entered into it). Finally, Kitchen Metrics is provided 
for figuring out metric notations, and Budget Helper will assist 
your children in keeping tabs on their allowances. 
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Recipe Book 


I'm not sure why, but one of the programs I enjoyed writing 
most was the Recipe Book program. Maybe it’s because it 
does a lot and was easy to write. After all, one does gain a 
certain amount of satisfaction from a program that performs 
a particular task and works correctly “to boot.” With Recipe 
Book, you have the ability to write a recipe, save it to disk, 
and recall it any time you need to review its ingredients. There 
are four basic commands in the menu: 


1> EDIT INGREDIENTS 
2> WRITE RECIPE 

3> READ RECIPE 

4> QUIT 
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Now, if you want to enter your recipe, type a 1; a second menu 
will appear: 


<1> LIST INGREDIENTS 

<2> DEL. INGREDIENTS (Del. stands for Delete.) 
<3> ADD INGREDIENTS 

<4> RETURN TO MAIN MENU 


Now enter a 1 to give a list of all the ingredients that you have 
entered so far. If you wish to delete a particular ingredient, 
make a note of its number on the list, and type a 2. Then enter 
the number of the item you wish to delete. Upon listing the 
ingredients again, you will find that it is gone from your list. 
Adding ingredients is done by entering a 3. Ingredients are 
entered one at a time, each one separated by a carriage return. 
When you have finished, simply enter a carriage return with 
nothing behind it. Entering a 4 will bring you back to the 
original menu. 


HECTPE BOOr 


1@0 FRINT CHRE(147) CHURS (144) 

PEG OP ORE Se os 

s2Q DIM INGRS (38) 

POD FEM HHEKREKEK ER EY ERE 

2i@ MEM * FPRINY SCREEN * 

C20 REM EEK CER HR RER EER 

200 PRI T CHRECPS Sy PAB Cad? “RECIPE BOOK” 
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278 PRINT 
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SO@ INPUT "CHOOSE ONE: "sFs 
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END 
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REM * ENTER DATA *# 

REM REESE ER EKER RER 
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PRINT 

PRINT 

Picco Ate he 

PRINT 

PRET ioe Sor. LAGREDL ENTS” 
Pe os Vibes. ENGREDTENTS" 
PRY. 8s ADD INGREDIENTS" 
PRINT oy RETURN TO MENU" 
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PRINT 
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PRINT "PRESS A KEY" 
GOSUB 163@ 
PRINT CHRE(19) 
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PRINT 
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PRINT CHRS (147) 
FILESS"" 

INPUT "RECIPE NAME: "SPILES 
If FILEY=*" THEN 23 

PRINT 


PRINT "@RITING OUT RECIPE" 
OPEN: digas io 
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CLOSE 4 
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PRINT 

PRINT “READING IN RECIFE" 
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INPUT#4 I NGRS$ CINGR) 
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REM EREXEHEREXE 

REM * GET REY # 

REM X¥EKEY NR ERE 

GET R¥ 2: TF Re="" THEN 1638 
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Shopping List 


How many shopping lists look more like shredded beef than 
paper? All those nasty erasures and scribbles! With Shopping 
List, you can proofread your grocery items before they are 
printed out to your printer or to the screen. You can add and 
delete items from your list at will; enter a 1 to add items and 
enter a 2 to delete items. When you are adding items, simply 
enter a RETURN when you are through. When you delete items, 
remember the items’ numbers in the list, and use that as a 
reference when the computer asks you the number of the item(s) 
to delete. The number of items the list will hold is up to you. 


PAM 
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All you have to do is change the DIM statement at the begin- 
ning of the program to reflect the number of items you wish 
the program to contain. The entire list may be dumped to either 
the screen or the printer by selecting option 3 from the main 
menu. If you press 3, the program will ask you whether you 
want it on the <S>CREEN or the <P>RINTER. Enter an5 or 
a P, depending on which you prefer. It’s as easy as that! With 
your shopping list, you will be assured that everything included 
on your list is readable, and you will save an extra trip to the 


market! 
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DIM ITEMS$ (5) 

ITEM=O 

PRINT CHRS (147) CHRE(144) 
POKE 3487°,25 
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REM * PRINT SCREEN * 
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PRINT 
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PRINT 

PRINT 

PRINT 


26 


cn 
~~ 


er 


CR On Oo 


CR > cy fb 
2 £2 C2 


~4 SS ose oo oh i Uo on on ca on 
rose 8 YO rte 
Saas age a oags asc ga 


ao om 
“4 Oo CF p& ClRS m £3 C4 


cs 


a. ~J ~. 


09 OF © +4 +5 
ec 
OO co 6 


cf Ps ee 


END 
REM FREKXE MER ER ER KY 
REM * ADD TO LIST + 


REM EREHKER EES Y¥HE RX 
FRINT CHRE(147) 
PRUNE “ATEN SS | PE Mata gts 
ITEM#(CITEM) ="* 

INPUT ITEM# (ITEM 
LETTERS CLT EM) at 


ITEM 
GOTO 


=ITTEM+ 


44Q 


THEN 


250 
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{SCREEN " 
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THEN 
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PRINTSI GROCERY List” 
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REM PRM R EEE ER EERE 
CEM oe SCREEN DUN 
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PRINT 
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REM 44 ERK KKH YER EEE ERE REE 
REM * NO ITEMS ENTERED * 
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PRINT 
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GET a a able pet eM: bhoe 
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Phone Book 


The Phone Book program is my personal favorite because I use 
it more than any other program. With it, you can enter names 
and numbers, delete them, add to them, and get printouts of 
the entire proceedings. Here is the menu you should see upon 
completion of the program: 


1> ADD ENTRY 

2e> DELETE ENTRY 

3> DUMP ALL ENTRIES 
4> INIT. PHONE FILE 
o> QUIT 


SHERRY N. | 
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The last option is probably self-explanatory, but the others need 
some explaining. When the program is first run, you should 
initialize a Phone Directory File by typing a 4. It will then ask 
you if you are sure. Enter a Y if you are, or an N if you aren't. 
You should initialize a file only once, as any subsequent attempt 
to do so will erase all the old information that is in that file. 
You do not want that to happen. Anyway, once you have ini- 
tialized the file, you may start entering your information via 
number 1. Typing in a 1 will display the following questions: 


LAST NAME: 
FIRST NAME: 
AREA CODE: 
PHONE#: 


(In case you are wondering why there are no question marks 
with my input statements, it’s because I opened a file to the 
screen, and that eliminates the little buggers!) When all the 
questions have been answered, you will be asked: 


CORRECT? (Y/N/X):X 


Respond with a Y for yes, an N for no, and an X for exit. Again, 
hitting a RETURN immediately will put you back into the 
main menu. If you answer with a Y for yes, the drive will whirr 
for a bit (be patient, it’s serial), and then, TAH DAH!, an entry 
has been made. 


If you make a mistake after an entry has been made, no need 
to fear. Entering a 2 from the main menu will let you delete 
your entries. If you do decide to delete an entry, after pressing 
© the computer will ask you the phone number of the entry 
you wish to delete. After the phone number to be deleted is 
entered, the drive will go into action and your entry will no 
longer be present on future dumpings. When a printout of your 
entire file is required, enter a 3 from the beginning menu. Now 
the computer will respond with: 


<P>RINTER/<S>CREEN? 
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Enter a P or an S, depending on whether you would like to 
direct output to the printer or to the screen. If either of these 
choices is selected, the contents of the phone directory file should 
start scrolling onto the screen or printer. VIC-owners with ex- 
panded memory in their units might wish to add a search and 
recall function to the program, which is a very handy routine 
to have. 


LOO REM EK RXERE KEK RHE 

11@ REM * SET SCREEN ¥ 

L20 REM HEX SSEREY HERES 

128 PRINT CHRE(147} CHRE (144) 
14@ FRINT CHRE (142) CHRE(B) 
150 OFEN 1,2@ 

168 C#=CHRE 13) 


17Q SRE=CHRE (157) 

160 FORE $6879.25 

£09 REM REEK EXE M KER ER ERY 

2iQ REM *% PRINT SCREEN x 

cod ROM REX RUEXNH RENE MRE 

enG PRINT CHR$(147) TABb(S) "PHONE BOOK" 
oe ae 

248 PRINT 

2405 FRING 

eee PRINT "MENU: " 

Za FOL NL 

eo! FRINT “ib ADD ENTRY" 

2/@ PRINT "> DELETE ENTRY® 

eG0 FRINT "Sr DUMP ALL ENTRIES" 
e70 PRINT "4> INIT. FONE FILE" 
SO Leia “ao De 

S18 PRINT CHRECLS) 

yee mn ia wea: 

see PRON T 

Soo ey 

S2@ PRINT TABCS); 


31 


CN t ed 


~~] IS 


CO G3 


J 
eon es cn €& cf Ses G2 cs cA 


nom 
+f 


~, 


+ FZ 


te 


” 
> 
z 
te! 
“? 
—) 
z 
te 
vy 
‘w 
oe 2 
2 
°° 
ww 
a 
% 
WwW 
~ 
-) 
4 

' 


Ma 


i > 22 ~~ ~~ — 
co 7 fe CS Od 


4> 
~3 


cn cn 
CS 


cm C4 Rp os 


-~32 995 *~ £- 


o- CA CALA ON CM CH CA CA CA 
co 
Ce ee Netgear eet eee er erg ey 


rm ED 


-——_ 


~JjJ ~J3 or 
ty 
c> G3 


PUR a7 oa 
INFUT#L AE 
REVAL LAS} 

IF 841 GR APS TREN co 
ON @ GETS 438,17 550, 72 
FRINT CHRE(L47) | 
seer ai 
PRINT 
Chat 
ENG 
REM ¥REREYN RRA EE KERR ERS 
(EM *¥ ENTER NAME & F & 
MEM ERPRENKRERE KEKE Y ENR 
PRINT CHRE(L47) 

PRINT “LAG MANE F°% 
INPUTS? UNF 

PRINT 

PRINT "FIRST NAMES "3 
PHP UTR ELS 

RINT 

PRINT "AREA CODE: 
INF UTRL Ace 

eas a 

PANE). PURE Re 
INF UT#L ENE 

PT 

rROINT 

Paae F 

PIC GON “Cae ae ae 
INPUT Ht yd 

LP eee Rae Boa 

If A€="N" THEN 438 

BOLO. as 

COM RXKEN EX RYE ES ELEN 

REM FF TRANSFER DATA x 

REM RYE MM ERM KY ER NK EEN 

OPEN 4 
DUPE Ss 


—_— 


Ly it my it 
awa CPO ea 


o2 


8,9, °MSFUONE FILE. DATO, 5,8 
3 


~3 oo 


to 


ms +O 
~~ 


Lea Po & € 3 2 © © 


Dm & & 


cy 


. 


‘se wat® 


wizs 
came 


cs 


es 


Cr £7 
cy 


ee aie eed eee so a oe Se 
f> FS s&s 
(Gi +s 

Es £5 


— 
fants 


é3 
ee RQ ~2 


x 


Led ped 


| ene ote cae too a Son 
| etened > = pee 


to 


THPUTE4S WS MS YE, 
If WE= "EOF" THEN Fi tiiekcateebtaceedes 


IF WEe"COR" THEN 79¢ 
PRINT#S WECEYSCEVECSZ# 
GOTO 75 
PRINT#S , WECSXPCHYECELS 
CLOSE 4 

CLOSE § 


PEN i5,8,15 
PRINTHIS, "SQrFHONE FILE. DATA" 
PRINTHIS,"RO:PHONE FILE. DATASCORY" 
CLOSE 15 
OUT) 23€ 

ee oe ee ee ae 


nae 
Fra Pim coor 
eet le 

we 


Ht o* DUMP FILE » 


REM XEXXX EYER NERY 
PRINT CHRS(L 47) 


Y Sitio 
INPUTHS WEY YE? 
IF WS="EO"" THEN 1149 
IF OF="S" THEN 1099 
PRINTROD NAME 2" We UW ¥4 
PRINTHE,“PHONEH: (" Ye 4)" rE og 
PRINT WH O"\" xa 
PRING Oh ve pw 9G 
ENTRIESSENTRIES #1 
PRINT 

i 


30 


Of="END OF FILE DATA" 


IF ENTRIES=8 THEN D#="FILE IS EMPTY" 


PRINT 


vo PRINT D4 


| PRINT EN 


ts C-4 «. @ 
<5 As 


vr eo 


ee 


CrP cn CP cA CN + — 
t~ fr CA a= ht Pu er BS fo re- ED 
Sams Aa ES & & ws 


cm | ned | ae -- | coed eo es 5 med cro 
un 
ty ms 


ca cn 


LA oA 
tO 


~ a 


ra 6 @€&) © co ct ca 


an 


2 be ee RR 


ur 
r= £9 


cr £- 


a Saat 
ro 


PRINT 
RI 


RLES. “ENTRIES” 
G7) 


IF PEER CL =64 THEN L17@ 

GOTO 238 

FEM KER ERMM EERE ERM RTE EN 

REM * INITIALIZE FILE # 

REM KM AMEE EX RE RYE EEN EER 

PP RANT Cue at sachs 

PRINT "ARE YQU SURE (Y/N) SN" BES; 
INPUTBL AF 

IF AFC TY" THEN 228 

OPM: Dasa kg 

PRINT #IS,. S@SPHONE FILE. DATA’ 
CEOor.bs 

OPEN &,8,0,"O:FHONE FILE.DATA,S,W" 
PUN Ray EGR (Ge Me Ee. go aes ee 


PEM FRE REFERS HER RRE ES 

REM # DELETE ENTRY & 

DEM EK RERRELEREREX HE 

PRINT CHEE 6147) 

PRINT UH TO DELLE" 

INF UTHL FNS 

Perel 

aes 

PRINT "ARE YOU SURECY RD"; 
TMPUTHL AF 


IF AS="Y" THEN 1610 


SOTO 22¢ 

PRINT CHRS (147) 
raf 

we 


o4 


OPEN 4,8,4, "OQ; PHONE FILE. DATA,S,R" 
OVEN. Geeypaq OP Leet” 
INFUT#4 WH, Xd, YS, 24 

IF 2=FPN$ THEN 1792 

PRINT#HS WECEXSCHEVYSCEZECE 

IF WS="EQF" THEN 183@ 

GOTC 14658 

C=} 

PRINT WS "\" X¢ 

RR a Meg. ae Oe 

PRINT CHR#(18) "DELETED" 

PRINT 

COTO 1458 

REM HHH RRX MEN GERH ES 

REM * END OF FILE # 

REM HEX KEE HEME EEE B 

CLOSE 4 

CLOSE §& 

OPEN: To. 8 15 

PRINT#LS,"SQ:FHONE FILE. DATA" 
PRINT#IS,"RO:PHONE FILE. DATA=COpy" 
CLOSE 35 

M="END OF FILE"+Ct+"ITEM NOT FOUND" 
IF C=i THEN M#="FINISHED" 

PRINT 

PRINT 

PRINT Me 

GET AS : IF Af="" THEN {928 

GOTO 23 

REM NES YER Y RET EKER EKER KEY 

REM ¥ FRINTER OR SCREEN x 

REM NRK KER EREKE RENEE REE KS 

PRINT CHRE (147) "SPORINTERS SSS CREEN: S" 


INPUT#1 OF 

IF OFf "°F" AND OF22"5" THEN 2030 
PRINT CHRS (147) 

RETURN 
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Kitchen Metrics 


Metrics!? Who knows, or even understands metrics? Sure, 
everyone knows that there are 100 centigrams in a gram, but 
who knows exactly how heavy 30 centigrams are? Around the 
kitchen, some means of converting metrics is needed. Voila! 
Kitchen Metrics is born. Now you too can convert metrics in 
the privacy of your own home. 


The menu should look like this: 


WHICH: 

1> QUARTS-LITERS 

¢> LITERS-QUARTS 

3> QUNCES-GRAMS 

4> GRAMS-OUNCES 

o> FAHRENHEIT-CELSIUS 
6> CELSIUS-FAHRENHEIT 


of 


Simply type in the number of the conversion you would like, 
followed by a number. Suppose you would like to find out how 
many liters are in two quarts. Type a 1 to convert from quarts 
to liters. When it asks for units, enter a 2, for two quarts. 
Presto! Your two quarts have been converted into a metrics 
unit. 


CLV CHEN HETIL CS 


1@@ PRINT CHRE(L47) CHRE 61445 

P40 PUCE 2687 7.20 

DOG FEM AN KKERERREK ER ERY 

2iQ@ PEM ¥ FRINT SCREEN # 

DOO REM RY KEKE KNEE KER ERS 

250 PRINT CHRE (147) TABS) "RITCHEN METRICS" 
290 ORI 

£45 PRINT 

foe The Gd se" 

250. RINT. 

27 PRI “42 QUARTS “LITERS” 
Zor Ee Se ee eo re oa” 

29M RUT SS GUNG ES GRAMS” 

SQ@@ PRINT "47 GRAMS -GUNCES” 

SLO PRINT "Se PRHRENME] Po CEL SLUS 
Se@ PRINT "Ge CELSLTUS -FRHRENHET I" 
oe Gol Re & TP Ree" THEN S38 
3482 R=VALCRE) 

Oot Tl head OR Rog: THEN: 230 

ABQ PEM EX EKH ER RHX EMS EEK HEHEHE 
AiO REM & CET UNIT & CONVERT ¥ 
AOQ TEM RMX KEN KERR RR EKER ERE 
fo FRE 

feos ety y 

AVE THPUT "UNTT: "sUNTT 

45@ ON F OOSUG eee oie) OWal a O41 130 
4355 PRINT 

C60 TRIN “CONVERTED 17 oe (0K 
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PRINT 

PRINT "ANY KEY TO CONTINUE" 
FOKE 197,64 

IF PEEK (197)=64 THEN 5@Q 
GOTG 22 

REM REE KHER HEX EKER RE 

REM * QUARTS-LITERS x 

REM KEKE REREKEKEKHEEEY 
AM=,9S#UNIT 

RETURN 

REM HEHE K HERE HERR EY 

REM * LITERS-@QUARTS ¥ 

REM HHH K ERE EER HER HEE 
AM=1,Q6eUNIT 

RETURN 

REM KHER KEREE EER EE ES 

REM * OUNCES-GRAMS x 

REM EEX ERHEEXXRERERY 
AM=23, 35 *UNIT 

RETURN 

REM KEXKERRX KEK EKER 

REM * GRAMS -QUNCES ¥* 

REM KERR EMHK EX HKU EEE 

AMN=. B35 UNIT 

RETURN 

REM SERRE ER HERR ERK RE EK ERE 
REM ¥ FAHRENHEIT- CELSIUS + 
REM HERE RE RE KERR RER RE REE ES 
AM=(UNIT- 32) "5/9 

RETURN 

REM £ERRKERKE EER EERE EKER YS 
FEM * CELSIUS-FAHRENHEIT »# 
ROM FRX EKER KERR REE ERE 
AM=(UNTT49/5) 432 

RETURN 
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Budget Helper 


Some people are not good at sports. I am not good at money. 
Pve always been that way, unfortunately, but now there’s some- 
thing I can do about it, and by golly, there’s something you can 
do about it too! Budget Helper is designed primarily for younger 
children to help them budget their allowances. Key in a 1 to 
enter your allowance. Then enter a number from 2—12. You 
will now be prompted for a string and an amount. Simply enter 
in your expense, such as GAS FOR CAR, then enter its cost, 
like 35. Now your current amount of allowance left to spend 
is shown on the screen, and you are ready to enter more expenses. 
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LA cA On cA Cn On 
aoe C od t. “3 
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~4Joo 0 


POM YERRRK RRA MENA 


FEM ¥ SET SCREEN » 
ROM SURE ERR ERK YES 


CAEN SOA et) 


PORE see ae 


as 
g° 
vad 


CHAE (144) 


Oe ae ee rn ree 
REM RRR KHED EER ER ERY 


Rom SOP RING TLTee & 
REM XX RRR KERR KEES 


PRIN CHR 4d 
PRINT 


Y PRINT “1> ST 


Chae 


FOR Te? TO {2 


CA=CATACLT) 
NEXT 
CA=LA~CA 
PRINT " ANT. 
RINT TABC4) 
PRINT 


“iter 
4 Co 
+i 


do 


TAGS 4} 


LEFT: ” CA 
CHEE (13) 


EM 2X EEE PY RRP EE KER ER AE 
REM * PRINT EXPENSES + 
REM EN FER ERE RRR EUR REN Y 


tls eae We. aee 


PRINT TAGB(Q) 
PRINT D&C: 


) NEXT 


an 


RICHTS (" 


RET) 


REM CNEREH EHH RHEE 


REM * GET If 


PUT 


¥ 


COM X MXR ERK REX EXE 


PRINT 


Pee MU deo 


INCUT We 
WEVAL CWE! 
if Wel Qk WwW: 
IF Wei THEN 


Le 
738 
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THEN 23 


SOAP ee) SV eee 


PE Vens HO 


we 


REM XRUN PEK ENE REY ER ERX HHERE 
REM # ENTER EXPENSE DATA # 
Ct RMR K RY EY KEE RRR EY ERY RDF 
PRINT 

L¢(Wjp=a"" 

ACW) = 

INFUT "ITEM NAME: "314 CW) 
INFUT "EXPENSE: "3s ACW) 

TO a Se 

MEM ERR MERHEXHERKRE RH EY RHE EH 
REM * ENTER INIT AMOUNT x 
REM KRY MR EHREY ERR ERE KY EE 


Section 2 


Educational Programs 


Learning the States 
Learning the Capitals 
Math Quizzer 

Divisors 

Trig Helper 

Primes 

spelling Practice 
Foreign Language Study 
Graph Plotter 


EDUCATIONAL PROGRAMS 


Educational software is finally coming into its own. Today, a 
wide range of software is available for education. These pro- 
grams are far more “learning oriented” than their predecessors. 
Included in the Education section of this book are five ex- 
tremely useful programs for learning at different levels. The 
first is Learning the States, a program for memorizing the 50 
states of the United States. The second is Learning the Capi- 
tals, a program for learning all 50 capitals. Using the Learning 
the Capitals program, I learned the capitals of all 50 states, 
something I could never seem to be able to do before. Math 
Quizzer will test a student on his addition, subtraction, mul- 
tiplication and division. For more advanced math, there are 
programs for finding divisors, trigonometric functions and prime 
numbers. How many times have you wanted a list of prime 


numbers? Well, now you can do it with Primes, a program that 
prints out all the prime numbers between two numbers input 
by the user. Spelling Practice helps students learn to spell lists 
of words for their spelling quizzes. Any list of words can be 
entered; then they will be flashed back momentarily for prep- 
aration. Finally, for students learning a foreign language, For- 
eign Language Study will help you remember all those new 
words. If you’re planning a trip where only Spanish is spoken, 
or if you're trying to pass a vocabulary test, this program will 
be a patient tutor. 


This section is good for learning programs by modification. As 
you will see, the States and Capitals programs make extensive 
use of DATA statements. By changing the contents of the DATA 
statements, students can learn other material as well. Of course, 
other aspects of the program will also have to be changed, but 
only slightly. Use your creativity and see what you can do. 
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Learning the States 


Almost everyone can recognize the individual states of the 
United States. However, when it comes to reciting all 50 of 
them from memory, that’s where most people draw the line. 
Using this program, children can successfully memorize all 50 
states, and have fun doing it. The program is quite simple. 
Here’s how to use the menu: 


You can list all 50 states by typing a 1. 
Type in a 2 to start the program. 
Type in a 3 to end it. 


When putting in the 50 states, you have the option of listing 
the ones you have already entered. This is done by entering 
LIST. You can end the program and get back to the menu by 
typing END. If you enter all 50 successfully, you win the game! 


49 


STATES 


188 
11@ 
120 
Leo 
139 
14@ 

w@ 
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PRINT 
FQKE 


CHRE (147) CHRE (144) 


34879, 25 


DIM STATES (58) 
DIM ASKEDE (S58) 


FOR T= 


1 TO 3 


READ STATES(T) 


NEXT 


REM REE E KERR ER EREES 


REM * PRINT SCREEN * 

REM FERH RHEE KEKE EE ES 
PRINT CHRE (L147) TAB(2) ; 
PRINT "OUR UNITED STATES" 
PRINT 

PRIDE Ss aol sa 7A Tio 
PRINT "<2e START" 

PRIWY "S3e QUIT" 

PRINT 

PRINT 

PRINT 

PRINT "END=END" 

PRINT "“LIST=LIST GUESSES" 


PRINT CHRE (19) 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INFUT "WHICH :"yR4 
R=VAL (R$) 

LF Red OR Reo: CHEN: 32 
IF R=3 THEN PRINT CHRE(147) ¢ END 
TF Raed THEN 648 


REM FEE RK ERRHKEKEREEEE ES 
REM * FRINT ALL STATES #* 
REM ELE REX EERE ERE RRR EKER 


D0 


PRINT CHR$(147) 

FOR T=1 TO 5@ 

PRINT STATE¢(T) 

GET R$ : IF R#="" THEN 462 
NEXT 7 

PRINT 

PRINT "THAT'S ALL" 

GET RE : IF R$="" THEN 49 
GOTQ 238 

REM XX RE RHEN KHER EKER 

REM * ENTER & TELL * 

REM * ITF CORRECT x 

REM 4X HEHE KEK EH EEK ES 

PRINT CHR$ (147) 

CUESS=0 

FOR T=1 TO SQ 

PRINT 

PRIN. "STATLER" Ts 
GUESO$="" 

INET Se GUEoSs 

Tr GUESS#="LIST" THEN 1032 
IF GUESS$="END" THEN RUN 
If GUESS#="" THEN 678 

FOR X=i TQ SQ 

IF GUESS#=STATES(X) THEN 732 
NEXT 


PRINT 
PRINT "THERE'S NO SUCH STATE!" 
SOTO 670 


FOR X=1 TQ GUESS 

IF QGUESSSRASKEDE(X) THEN 930 
NEXT 

UUESo=GUESSe) 

ASKEDS (GUESS) =GUESS# 

NEXT 

FOR T=@ TO 285 

PORE 23280.) &. NEXT 

PRINT ¢ PRINT 


ol 


TO PET VOU VE GUESSED: THEN.” 


ee 


@2Or FIA PI Fes 


~— — —_ Feed 5c 


GET R$ : If R¥2"" THEN 86 
RUN 
REM FERRER EKXREREREREREE 
REM *® ALREADY ENTERED * 
REM KX KERERE RE REE EEE RHE 
X=100 
PRINT 
PRINT "ALREADY BEEN USED!” 
GOTCG 672 

REM KEXEEERR ERK ERE 

REM #*€ STATES USED & 

REM KARR RRKRR EER EY EY 

iF GUESS=@ THEN 1122 


PRINT 
FOR X=! TQ GUESS 
PR Tv Ea - PASKEDE CY) 
BET GS. #: de sot" THER 1@70 
HE XT 
i CENT 


Pein “eae a NO LG es 

GET RE : TF RF="" THEN 1102 

Goro 67¥ 

eae 

PRCA “NON ENE BN TERED: OVE 
GOTOQ 6&7 

REM RHE RHEE RE KEELER 

REM * STATES DATA # 

REM HERE RE REE EREEED 

DATA ALABAMA,ALASKA ARIZONA 

DATA ARKANSAS, CALIFORNIA, COLORADS 
DATA CONNECTICUT ,DELAWARE 

LATA FLORIDA, GEORGIA, HAWALL, TDAHD 
DATA [LLINOLS, INDLANA, LOWA, KANSAS 
DATA EERTUCKY 

DATA LOUTSTANA MATINEE MARYLAND 
DATA MASSACHUSETTS MICHIGAN 

DATA MINNESOTA, MISSISSIPPI 


o2 


DATA 
DATA 
DATA 
DAT F 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DAT & 
DAT A 


LSSOURT MONTANA, NEBRASKA 
CVADA,NEW HAMPSHIRE 

EW JERSEY,NEW MEXICO 

NEW YORE NORTH CARGLINA 
NORTH DAKOTA,OHIO,OELAHOMA 
OREGON, PENNSYLVANTA 

RHODE ISLAND,SOQUTH CAROLINA 
sou Hl DAKOTA, TENNESSEE, TEXAS 
UTAH VERMONT 

VEPGINIA, WASHINGTON 

WEST VIRGINIA, WISCONSIN 
WYORING 


M 
hl 
F 


at) 


Learning the Capitals 


Sure, everyone knows a few capitals. If you think that the 
capital of Texas is Dallas, the capital of Florida is Miami, and 
the capital of California is San Diego, are you in for a surprise! 


In addition to knowing all 50 states, learning their respective 
capitals is equally important. This program is basically the 
same as the States program, except that it cannot list thestates 
whose capitals you have already entered. It will tell you if your 
entry is incorrect by printing the state’s correct capital when 
you enter a wrong answer. You can exit to the menu by typing 
END in response to a capital entry. 


DO 


CAPITALS 


188 
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PRINT CHRS(147) CHRS(144) 
POKE 34879,25 

DIM ST$(5Q) 

DIM CAP#(5Q) 

DIM GUESSED (5Q) 

FOR T=1 TO 5@ 

READ ST#(T) 

READ CAF S(T) 

NEXT 

REM HEHE RRHERREKRE KES 

REM ¥ PRINT SCREEN + 

REM EX EEKREXERERE KEE 
PRINT CHRE(147) TAB(2)3 
PRINT "STATES & CAPITALS" 
PRINT 

PRINT 

PRINT 

PRINT 

PRINT "C13 LIST CAPITALS" 
PRINT "{2 > START" 

PRINT "32 QUIT" 

PRINT 

PRINT “END=END" 

PRINT CHRS(19) 

PRINT 

PRINT 

INPUT "WHICH :"sR4 

IF VAL(RE) <1 OR VAL(RE) 23 THEN 290 
IF R$="3" THEN PRINT CHR$(147) : END 
IF RESS"L" THEN 630 

REM HEERERRHRERER RE RHES 
PEM ¥ FRINT ALL * 

REM « STATES & CAPS « 

REM EK KR REXHEKEN YE RE SE 
PRINT CHRE(147) 

FOR T=1 TO 5 

PRINT ST$(T) 


D6 


Ci Po ho 


PRINT CHRS(18) CAPE (T) 
PRINT 

GOSUE 153 

NEXT 7 

PRINT s PRINT "THAT'S ALL" 
GOSUB 1538 

GOTO 238 

REM HERKEN KHHHHRE RHEE 

REM * ENTER CAFITAL ¥ 

REM HREHH HERE EK EX RES 
PRINT CHRS (147) 
NUM=INTCRND (1) ¥5@+1) 

IF GUESSED(NUM)=1 THEN 648 
PRINT 

PRINT "CAP. OF " ST$ (NUM) 
CUESS#="" 

PRINT "NAMES": 

INFUT GUESS# 

IF GUESS$="END" THEN 23@ 
If GUESS$=CAPS (NUM) THEN 74@ 
PRINT 

PRINT "WRONG, IT'S 

PRINT CHRE(1S) CAPE CNUM) 
GOTO 648 

PRINT 

PRINT “YOURE -CORREGT Ot" 
GUESSED (NUM) = 1 

FOR T=1 TO 58 

IF GUESSED(T)=@ THEN T=4@ 
NEXT 

IF T?=6@ THEN 4648 

PRINT 

PRINT "YOU'VE DONE THEM ALLIt” 
BUSUE 132 

RUR 

REM FRX EKERKERHH RE RE ERK KY 
REM * STATES & CAPITALS » 
REM HEHKEKEER KERR ERE KEKE S 


a7 


DATA 
DATA 
DATA 
DATA 
DAT A 
DATA 
DATA 
DATA 
DATE 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
ATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATS 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


RLABAMA, MONTGOMERY, ALASKA 
JUNEAU, ARIZONA, PHOENIX 
ARKANSAS ,LITTLE ROCK 
CALIFORNIA, SACRAMENTO, COLORADO 
DENVER, CONNECTICUT HARTFORD 
DELAWARE, DOVER 
FLORIDA, TALLAHASSEE. GEORGIA 
ATLANTA, HAWAII, HONOLULU, IDAHG 
BOISE 
ILLINOIS, SPRINGFIELD, INDIANA 
INDIANAPOLIS, 1OWA,DES MOINES 
KANSAS, TOPEKA 
KENTUCKY , FRANKFORT, LOUISIANA 
BATON ROUGE, MAINE, AUGUSTA 
MARYLAND, ANNAPOLIS 
MASSACHUSETTS, ZOSTON, MICHIGAN 
LANSING 
MINNESOTA,ST. PAUL, MISSISSIPPI 
JACKSON, MISSOURI 
JEFFERSON CITY 
MONTANA, HELENA, NEBRASKA 
LINCOLN, NEVADA, CARSON CITY 
NEW JERSEY, TRENTON 
NEW HAMPSHIRE, CONCORL 
NEW MEXICO,SANTA FE,NEW YORK 
ALBANY 
NORTH DAKOTA, BISMARCK 
NORTH CAROLINA,RALEIGH, OHIO 
COLUMBUS 
OKLAHOMA, OKLAHOMA CITY, OREGON 
SALEM, PENNSYLVANIA, HARRISBURG 
RHODE ISLAND. PROVIDENCE 
SOUTH CAROLINA, COLUMBIA 
SOUTH DAKOTA, FIERRE 
TEXAS AUSTIN, TENNESSEE 
NASHVILLE 
UTAH, SALT LAKE CITY, VERMONT 
(ONTPELIER VIRGINIA, RICHMOND 


D8 


DATA WASHINGTON, OLYMPIA 

DATA WEST VIRGINIA, CHARLESTON 
DATA WISCONSIN, MILWAUKEE 

DATA WYOMING, CHEYENNE 

KEM HHRHEHHE ER HRY 

REM * GET PRESS »* 

REM KEHXHHERER KES 

GET R$ +: IF R$="" THEN 153Q 
RETURN 


ole 
Math Quizzer 


The Math Quizzer program was designed to help students who 
need repetitive review to learn mathematica] concepts. With 
this program, the student can be quizzed in addition, subtrac- 
tion, multiplication or division, by entering a number from 1— 
4. The lower and upper limits from which the computer will 
pick random numbers may also be set. Entering values 
of 12 and 3@ will instruct the computer to pick numbers from 
10 to 30 when constructing sample problems. The division op- 
tion picks out problems with no remainder, as simple remain- 
ders would be quite difficult to do ona computer. If the problem 
is answered incorrectly, the correct answer will be shown, and 
a new problem will be picked out. 
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PRINT CHRE(L47) CHRE(L44) 
PORE 36679. 22 

[Ll 

UL=1@89 

NUM=120 

OEM ¥EREXESEN EEK EERS 

PEM « FRINT SCREEN * 

DEM MENKEEH REE EE REESE 
PRINT CHRE(147) TAB CS) 
FRINT "MATH SEILLE" 

PRINT 

PRINT 

PRINT "WHICH: ' 

PRINT 
PRINT "2 
-FRINT "¢ 
Pr hi. 


ADDITION" 
SUBTRAC ELON” 
lO cco i GE 
ele Fe, DLS lon” 

PICEA Sy on me oe a a as 

GET Re : IF R¥="" THEN 318 
REVAL IRE) 

Le: Reb Or Rao. TER ape 


C8 > fA oP ee 


Se et sa AL 


IF R= THEN 438 

If R=2 THEN S¥="" 
IF Ret THEN S#="4 " 
IF R=3 THEN S#="X ° 
IF R=4 THEN S$="/ " 
eora sie 


MEM HEF KE KERR ERED 

PEt SE Here ea 8 

CEM RAKKRRRE RRR EES 
PRINT 

TNPUT “GOWER (atu eek 
PRINT 

PP EP eli ogee 
NUMFUL- Ltt 
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Pt rary © 
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EER HEE CER UEKM EXE REY 
NT CHRE (147) 
NTORND C1) #NUM EL) #LL 
“NM THEN 548 
CRND CL) #NUM4 1) ALL 
Z=NN THEN 54@ 
S$.0") " THEN 62@ 


ig oad Sle aD 
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ee FF 


oe 


> 
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to 4 
< 
—> 


: NTCPIG) THEN 
Fe"- " THEN FIGSN 
$e "X " THEN rie N 
Fe"t " THEN FIGEN 


LEN? 
1+ 


Fad 


mee 


4 


PRINT "WHAT 19 " NisS$sN2 


ANS $=" 

PRINT 

INPUT "THE ANSWER IS 

IF ANS#=s"" THEN 239 

Nidety f 

NN=N? 

ANS=VAL CANS S$} 

PRINT 

Ir ANS SFIG THEN 93Q 
REM SE REX EERE HERR EY 
KE oF OU CRE Eon. & 
REM 2#¥ RRR EYER ERY ERY 
PRINT "RIGHT YOU ARE" 


:"SANSS 


GET RE : TF Ree"" THEN gap 


COTO §48 

REM SEX RRH ENE RH EH 
REM # YOU'RE WRONG x 
FEM ANKE EY HK KEKE EY 


PRINT "WRONG! IT'S " FIG 


GOTO 3408 


Divisors 


Divisors is a program that shows you all of the possible factors 
of a number. This program is one of the easier ones in this 
section, so even beginners should have no problem understand- 
ing it. Let’s say that you have entered the number 8. The 
computer would print the following: 


OpBpM - 


The program displays the divisors from one to half of the num- 
ber you have entered. Remember that the divisor of a number 
cannot be more than half of that number. To be a divisor, the 
number must divide into your original number without a 
remainder. 


LVISORS 


1@0 PRINT CHRE(147) CHR$ (144) 
ay, PORE. 36679 .o5 

12@ NUM=@ 

130 INPUT "ENTER NUMBER: "3 NUM 
14@ IF NUM=@ THEN 212 

15@ FOR T=t TO NUM/2 

L6@ IF INT(NUM/T)=NUM/T THEN PRINT T 
178 NEXT 

13Q PRINT NUM 

170 PRINT 

280 GOTO {22 

21@ PRINT 

ec® END 
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Trig Helper 


Having taken quite a few trigonometric courses, I know the 
importance of having trigonometric functions at your disposal 
(especially since the precision in books only goes to about four 
digits). With the Trigonometric Helper program, you have 
six basic functions to choose from. Sine, cosine, tangent, co- 
secant, secant, and cotangent. Simply type the number of the 
function you want (1—6), and then the computer will prompt 
you for an angle. Enter the angle (@—36Q) and the computer 
will print out the value for whatever function you choose. See, 
its as easy as 3.14159! 


FRONT 
PORE 
REM XK RK ERY HERE RE HRY 
REM ¥ FRINT SCREEN x 
REM EX EX EXE RE RRR ER HY 


CHRS (147) 
ouet ieee 


CHR (144) 


PRINT CHEE CL47) “MATHEMATICAL FUNCTIONS” 
PARENT 

POISE OP SG Pe 

PCD eg COS Fue" 
PRINT "23> TANGENT" 
PRINT “<47 COSECANT® 
Pl) =e “SEC att 
PRINT "£6> COTANGENT" 
PRINT : PRINT "WHICH: "; 
INPUT W¥ 

WEVAL CWE} 

[TF Wel OR Wes THEN 232 


REM ¥XHEREREM EN ES 
REM * GET ANGLE x 
REM X¥REYEHEREY EY 
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roof 
sew) 


ee @& oO CO sy Ge ON oA ee on Ci 
meinaoee Sexwewreqaenmgse GBagw & 


* 
| eared 


Cc~ tc co Om mo oh tA oA oA OF oN oN CR en en ene. 


Sond CC Co -s £3 


BY 


ao SS oe. as oD 
O GS 
cS 


PRINT CHRE (147) "ANGLE (QO 368): °; 
INPUT ANSLES 

ANGLE=VALCANOSLES ) 

IF ANGLE<@ GE ANGLE? 38@ THEN 228 
ANGLE*ANGLE SS. 141597180 


ON W COSUE G3@,650,478,599,718, 738 


ORM 2eXX MPU TERRES 
REN * FRINT ANSWER # 
CRM XX KER KKK RR HES 
PRINT 
PRINT 
PRINT "AN 
PRIN 
PRINT 
PRINT "ANY KEY 10 CONTINUE" 
PORE ee. 

IF PEER CAS7}=04 THEN 308 
RUE 

REM #¥ REX KER EERE 

REM * FUNCTIONS & 

REM FRR KEX ERR EEE 
NUM=SINCANGLE} 

RETURN 


NUM=COS (ANGLE 


WET 


4 
a 


=" NUM 


phe 


RE TURE 
NUM= TANS ANGLE: 
RETURN 
NUM=1/S ITN CANGLE} 
RETURN 


NUMFL/CGS CANGOLE | 
RO TURN 


® NUM=1/ TAN CANGLE) 


RETURN 
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Primes 


Math can be made easy! Do you think I’m loony? Actually, math 
can be if you have a computer. Computers make mathematical 
calculations millions of times easier (in some cases that’s lit- 


erally true!). Math Quizzer, Trigonometric 


Helper, and 


Graph Plotter are all cases in point. If you have ever taken 
a math course, chances are you’ve had to work with prime 


numbers somewhere along the line. To refresh 


your memory, 


a prime number is one that is only divisible by one and itself. 


A few examples are: 


You get the idea. Finding prime numbers on a computer is easy 


and quick, as the program below demonstrates: 


CHARS (147) 


TLE WS 
ret At dt on.) 


GHRE (144) 
ine 

YE RNEN IHX ENE KES 

» GEE NUMBERS 
PUYER ERR ERE RR ED 


boa? Giatd i “ERTEE 


x 


TWO 


rm & 


ma > CO «<> 
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NUMBERS 


a> tt RID ee 


cn 


sw) 


S SsSeaeoeoen Ga & 


L905 cA CN oA CN oA OT OL 


3G CO 


INFUT U,X 

IF O=¥ THEN S22 

Le OS EW. Sag 

CCM YER ERNE REE Y REE K 
REM * FIND PRIMES * 
TOM BERR ERE EERE RYE 
PRINT CHRE (147) 

DIM ACX/2) 

B= Q 

PRINT "THE PRIME NUMBERS BETWEEN" 
PRINT @ "AND" X “ARE: " 
FRINT s FRINT 

FOR Y= TQ X 

IF Y=2 THEN Saé 


FOR M=@ TQ B-1 

TIF ACM) EY/2 THEN 358 

IF Y¥/ACM)SINTCY/ACN)) THEN 398 
NEXT 

If YO THEN 378 

CER, Sieg 

ACBTEY 

b=B+ | 

NEXT 4 


REM FEE RKREY ERR E EK E 
OPM ¥» SAME NUMBER & 
DEM YR EKER EXER EE RES 


ce alco acres 


POINT "THERE'S NOTHING GETWEEN" 0 
CHD 
PEM REE RR RH ER ERR 
PEM * BAD RANGE 
REM PRR RAKREREK ERE 
BRUNT 2 GP RCUNT 

PRINT "INFUT THE SMALLER NUMBER ", 
POINT "BEFORE THE" 
PRINT "LARGER ONE!” 
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Spelling Practice 


This is a fun and useful way to prepare for a spelling quiz. 
When you RUN this program, you will be asked to enter your 
list of spelling words. After you have entered them all, the 
words will be given back to you, one at a time, to spell. They 
are flashed on the screen for just a moment: long enough to 
recognize the word, but not long enough to completely look at 
its spelling. Believe me, it works! You will then be asked to 
spell the word correctly. If you get the word right, the computer 
will tell you so. If not, then you will be given more chances 
until you do get it right. 


55 
InefficaciouSn® 


F. 


ep oe 


3 ones [ Tn ae 
rd om ; : 
e r seomeenornaaaqay ii 3 
"tutes ote ~ : 
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Spelling Practice can be run by the student himself, or with 
his or her parent's help. If parents do help, they should enter 
the spelling words when the program first asks for the list, and 
the student can spell them when they flash on the screen. The 
words are presented in reverse order from the way they were 
entered; that way. they are not memorized in a listed order. 
This program has been tested, and students using it improved 
markedly on their spelling quizzes. See if you can improve your 
spelling as well! 
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SPECIE RAG eee 


108 
Lig 
289 


~ 4 
& A 


228 
220 
249 
Cae 00 
td 
260 


ry] {A 
a / 


20Q 
270 
= 2Q 
218 
320 
320 
540 
42g 
4i1@ 
48 
AZe 
Jay 


PRINT CHRE (147) CURE (144) 
FOKE 36977,25 

REM SHR KERAA KR REAR ERA KKER EES 
REM ¥* ENTER SFELLING WORDS + 
MEM FEMA ERK ERS RERZERER KE REES 
oils 

RESTORE 

PRINT 

CRINT 

INFUT "HOW MANY WORDS: "; 
DIM SPECN} 

PRINT 

PRINT 

FOR k=l TQ 8 

PRINT "WORDS" XK "a's 
INPUT SESCX? 

NEKT 

REM REX KEKE REEEH ER ERY 
REM # SPELLING @UTL 2 
REM FREER EEREK REY EYEE SE 
FOR Fei TQ oN 

Pee ena ea 

FOR Tel To 1@ 

PRINT 

NEXT 

L=Lon (ors (Aa): 

PoeLietle 

FRINT TAB(FL) SPE CX: 

FOR Feet TO 288 

NEXT 

FRONT CHEE (147) 

PRISE (NON CER SS CRRE GT OMEE LEH OS 
PRINT 

ERIN 

ENE Pee Cee 


If CS#s5P$ 04) THEN Gat 


=z 


{ 
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G Cm cm fr tr on 
roe GF .o 
MS © GW F2 


“PO 1 wg fd 
Sw WB & F 


PRINT 
PRINT 
PRINT “IN 
FOR Fat Tf 


PORE. VCE 


P PRINT "“ANGTHER RUNCY/§D” 


Be (ee 


OCT AS s IF Ag="" THEN 69g 

IF Af="¥" THEN 432 

PRINT CHRE(147) 

PRINT "GOOD LUCE ON THE TeESTi” 
END 

REM FR ERE ROR EERE RR Y RHE 

REM * CORRECT ANSWER x 


| REM EERYFRE HEX EER ERK YE 


CO (a 


2 mo 
~o3 Oa “4d & cn 
& Ge @ ts 


PRINT CHES (147) 

FOR Tsi To 1a 

eee etal 

NEXT 

PRINT TAB(2) “THAT'S CORRECT!” 
FOR T=1 TO 4a@ 

REX T 

GOUT 448 
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Foreign Language Study 


I remember taking German at Grossmont High School, with a 
teacher named Mr. Jose Weill. He was a great teacher, but there 
are some things that a teacher just does not have time for. One 
of these things is repetitive review. A computer is just perfect 
for this sort of thing. German grammar is easy. The difficulty 
is in memorizing definite articles, verbs and vocabulary. For- 
eign Language Study eliminates this problem by quizzing you 
on whatever vocabulary you have entered into its file. It will 
do this for whatever language you happen to be learning. For- 
eign Language Study is moderately easy to understand. There 
are three commands in the main menu: 


<1> EDIT VOCABULARY 
<2> QUIZ TIME 
<3> QUIT 


19 


Now let’s start entering data. Do this by pressing 1. Now the 
computer will prompt you with: 


<1> LIST VOCABULARY 
<2> ADD VOCAB. 
<3> RETURN TO MENU 


Entering a 3 will return you to the main menu as shown above. 
To list all of the entries you have made so far, enter a 1. It will 
ask you if you would like to direct output to the <P>RINTER or 
to the <S>CREEN. Enter aP or anS. When all of your entries 
have been listeed, the message THAT'S ALL FOLKS! will be 
printed, and it will wait for a key to be pressed. Pressing any 
key will put you into the second menu. 


Adding entries is easy. Simply enter a 2. Now it will ask you 
for the English word. Enter for example, THE DOG. Next it 
will ask you for the appropriate foreign word. Enter DER HUND, 
which is German for “the dog.” You may have noticed that an 
X is always printed out. This is done so that if you are finished 
entering items, you can just press RETURN and you will be 
put back into the second menu. Feel free to change the string 
“foreign” to whatever language you are currently studying. 
When you are ready to be quizzed on your vocabulary, enter a 
2 in the main menu. You will now see this displayed: 


<1> ENGLISH TO FOREIGN 
<2> FOREIGN TO ENGLISH 
<3> RETURN TO MENU 


If you pick number 1, the computer might say: 
GIVE ME THE FOREIGN WORD FOR: THE DOG 
If you pick number 2, the computer might say: 


GIVE ME THE ENGLISH WORD FOR: DER HUND 


76 


If you picked number 1, then you would enter DER HUND. 
The computer will respond with an appropriate answer, telling 
you whether or not your response was correct. The computer 
will ask only vocabulary that you have not yet correctly trans- 
lated. I have found this program to be tremendously helpful as 
far as memorizing nouns, verbs and the like, and I hope you 
do too. 


FOREIGN LANGUAGE STUDY 


1Q@@ FRINY CHRE (147) CHRE(144) 

11@ PORE 36879, 25 

128 OFEN 1,8 : CRECHRE(13) 

P30 DIM WRD$( 1,28) ANS (2Q) 

140 WRDS=@ : BES=CHRE(157) 

108 RYVS$=CHRS$ (18) 

L6Q FRINYT CHRE(147) TAE(C7) "TONGUES® 
170 FRINT +s FRINT : PRINT 

18@ PRINT "MENU:" : FRINT 

198 PRINT "<i> EDIT VOCABULARY” 
2e@Q PRINT "<2> QUIZ TIME" 

2i@ FRINT "e3> GUIT" 

2e@ PRINT CHR#(19) =: PRINT =: PRINT 
230 PRINT : PRINT TAB(S)s$ 

248 INFUT#L,AF 

Z2OM A=VAL (CAF) 

268 IF A<i OR AZ THEN 148 

270 ON & GOTO 310,1028 

280 FRINT CHRE(147) "BYE BYE” 

290 END 

3Q@ REM EHX HH EX 

3i@ REM * EDIT +* 

320 REM KHER 

S3Q PRINT CHR$(147) TABC3) "EDIT VOCABULARY” 
34@ PRINT : PRINT 

SOQ PRINT "WHICHs" : PRINT 

368 FRINT "<i? LIST VOCABULARY" 
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ao cn 
ae) 


cy cn on CN CH 
a 


aS OoeoeGea G&G 


| 


Gr o 
aa s 


C7 oe 
C0 te mN RI +e GS ~O OO -. 


Poe he 
~!o om 
Qa @& 


Laat) 


co 
& 


™ 
~ 


PRINT "<2 ADB 
PrN aaa 
GET At +: LP Aga 
B=VAL CAS) 

LIF As d OR AES T 
ON & GOTO 338,8 
REM YEN REE ES 
Per « LIST x 
REM RXR REKEE 

IF WRDS=@ THEN 
PRINT CHRE (147) 
OET HE ¢: TF tte 
IF Hie" B" AND 
LP hea S. CE HTEN 
GrPEN 2,4 
PRINT#HL CECE 
PRINT#Z, TABCI@) 


PRINT 

FOR T=! TO WRDS 
PESRLGHISL™ FS 
TF H="S" THEN 

Peon) ale ee Mo 

PR Ag oer Aig 
PRINT RVGS TABS 


VOCAB." 
w TREN 


HEN 398 
32,168 


naar 
an 


RETURN TQ MENU" 


 C} 
vel of 


" PORINTER/ 482 CREEN" 


" THEN 
go" g" 
510 


"VOCAB 


TROT +h 
66 


Ce ¢ 
wt wd 


THEN 


ULARY 


“~~ 
R giae 


558 


POR SPT LES 


WRES(O,T), WRDF(1,T) 


Sg eee be 
4) WRDS 


Cais 


le PEGE CIS PO TEN: ew 


YEPEER (L997) 

IF xX=64 THEN 49 
YP Xe OO THEN 
NEXT 

PRIN oe Pia. 
GET Re : ITF RFs 
CLOSE 24 GOTG 
REM HER HEHE 

REM * ADD # 

PEM XRREEEK 

IF WRDS=20 THEN 
PRINT CHRE (147) 


; 
“500 


THAT 3 
ee Ae 


358 


1&2 
TAR S4) 


18 


Ai. Pile” 


74g 


"ADL 


VOCABULARY" 


828 
d6Q 
872 
832 
89@ 
702 
718 
720 
738 
242 
938 
960 
778 
73@ 
1209 
w1Q 
1820 
1@32 
i840 
1252 
1@62 
i@7@ 
12a2 
1092 
1128 
Lit? 
1128 
1132 
1148 
1150 
1d 
i17Q 
1188 
1199 
1200 
12128 
bet 


nerd 
me! 


FRINT +: PRINT 
FRINT : PRINT 
WE=RIGHTS(" "+STRECWRDS+1) ,3) 
PRINT "ENGLISH#H" WE "SX" BE: 
INPUT#! ,EWS 

IF EWS="X" THEN 32 
PRINT : PRINT "FOREIGN#" WE "SX" BES: 
INGUTHL EWE 

IF FU$="X" THEN 338 
FRINT 

INPUT "CORRECT (¥/N) "3C$ 

TF C#ec"Y" THEN 849 
WROS(O WARDS) =EWS +: WRDS(L WRDS) =Fut 
WRDS=WRDS+1 : GOTO 84@ 

PEM ¥RXRREXY 

REM *« QUIZ # 

REM KERR REES 

IF WRDS=@ THEN 168 

PRINT CHR#(147) TAB(G) "QUIZ TIME" 
PRINT : PRINT +: PRINT 

PRN? "Sd ENGLIGH. TO: FORELGN's 
PRINT "“2> FOREIGN TO ENGLISH": 
PRINT "23> RETURN TQ MENU" 

PRINT 

PRINT "WHICH: "3 

INFUT#!L At 

R=VAL (AS) 

IF Ac1l OR AZZ THEN 12838 

IF A=3 THEN 1468 

PRINT CHRE (147) 

FOR T=@ TO WRDS~ i 

ANS{T)=@ : NEXT 

A¥="ENGLISH" +: ANS=@ : WO=t 

IF Atl THEN A¢="FOREIGN" : ANS=1 : WO=Q 
NUM=INT(CRND (1) #WRDS) 

IF ANS(NUM)=1 THEN 1292 

PRINT "GIVE ME THE " A¢ 

PRINT "WORD FOR "“ WRO(WO,NUM) 
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ro 
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sot 


CE coe coe ote cool cool oe coed 
~ Y 
SOeacge aes S&S we &3 


Led ocd £4 PQ PG 


cf & & 


af UN OY aed 
~-) Oo C8 & CY hI ee EI 


a oe 
Cc 


é Wd O38 


- Om 
Ss 


ee 


wee 
é 
~ 


i> 
C3 
i] 


ro 


PRINT "ANSBERS § 

INU Hi ANGE 

IF ANS gery THEN 1628 

CRINT 

IF ANSS. cWRDE CANS NUM) THEM 1358 
PRINT. “ZORPEOL SC oo FRLNT 

ANS (NUH) = 

FOR S=@ TO WRDS-1 

IF ANS (S)=41 THEN NEXT +: SOTO i378 
S=S@@ : NEXT 

GOTO 1208 

PRINT “WRONG, IT’S " WROS CANS NUM) 
PRINT + GOTO 1288 

PRINT : FRINT 

PRINT "YGU VE ANSWERED ALL OFTHEM!® 
GET RE e TP Rese" TEN ES ?e 

GOTG 14 
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Graph Plotter 


In order to use the graphics that the VIC-20 is capable of pro- 
ducing, it is necessary to use POKEs (in BASIC), machine lan- 
guage programs, or assemblers. Graphics are easy in machine 
language, but not particularly easy if you’re working in BASIC. 


To me, one of the most exciting things I can watch a computer 
do is produce graphs. Bar graphs can be done with graphic 
characters, but for the precision required for mathematical 
functions, hi-res graphics is the only solution. 
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Once the graph has been drawn, the computer waits for you to 
press a key. The program will then put you back into the text 
mode. To change the height of the graph, you must change the 
variable AMPLITUDE. Changing it changes the height of the 
graph. You can use negative numbers if you wish. An effect 
that really looks nice can be achieved by using a FOR/NEXT 
loop that varies the amplitude from -1 to 1, step .1. It gives a 
very good 3-D effect. To change the period of the graph, divide 
the variable X by some number. My graphing program uses a 
domain from O to 2Pi. If you would like todoaCOS plot, then 
merely change the SIN to COS. It’s as easy as that! For other 
ideas for equations, consult page 275 in the VIC-20 Program- 
mer’s Reference Guide. 
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= ix & cm 
GW ~$ Om OCF om Cs 


oe Sieg Manas | 
3 
Mm Oo Gee 8 &S te ©! we & & ES F 


; 


a ae 
Ol ip ¢4 7. 


GI 49 £2 sea 
Ss mi -s 


ca 
> G&G 


cM co Cc 


CS 
“4 OF 2 C2 fo be 
S&S C2 69 


FOR 
POR 


Se 


ra rmmm 


—s - 


ou 


REM 

AMPL 

Fer 
230 


A= DOM 
TF Xs 
vi@ QR ¥243 THEN 602 


REM 
REN 
REN 
CHAR 


ROW= 


BYTE? 


ee ie tee 
POE 
NEXT 
REM 


nr M 


REM 


REX TER EER EKER RR ERE KY 
« COUATION OF GRAFH # 
REX KER EVER EK RK ERE EY 
ITUDE= 

POMAINe® TO 22,14 STEP 
AMPLITUDES SINCDONAINI ATS 
AIN#*1Q 

@ OF X45 THEN 682 


KEMPE EKER KR RRR EK EE 
¥ EQUATION FOR DOT # 
HAXE KEAN EKER H EER EEE 
SENT IX/O) # FOP IN CYA) 

(Y¥/@ INTCY/8) ) ¥8 
1ES+CHAR*G+EROW 
7-{¥ AND 7) 


aa! 


DY TE MPee CBT ED ah UCP: 


See Seco cece eee es 2: 
* GRAPE IS FINISHED « 
YRMYAXK EEK ENE EEK YK A YE 
A€ 


") CHEE O31) 
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Section 3 


Entertainment Programs 


Death Hunt 

Guided Missile Commander 
Music Machine 

Tank Command 

Memory Master 

Pick a Number 

Doodle 


SLT TL a aR I ET a RT I I ET aT a TN a II TT IT a RT AR I TT TL a ITT FT TT TI TI EI I TT EE EE IT I SORT TET I RT TTT I FN ET TO AT I OT TE TT TE IE I NT I ETN IE, IT I ET ES 


ENTERTAINMENT PROGRAMS 


For the Entertainment section of this book, I wanted to give 
an example of the two ways of programming games on the VIC- 
20. Included are one game using text characters, and one using 
programmable characters. The game Death Hunt uses only text 
and graphic characters, and Guided Missile Commander uses 
programmable characters, that is characters which are rede- 
fined from the Commodore character set. Another little ditty 
is Music Machine, a program which lets you compose melodies, 
annoying or pleasant, depending upon your musical ability. 
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Tank Command is a great little arcade-type program that sim- 
ulates a tank going through mine infested territory. For those 
of you wanting to expand your horizons, consciousness and 
all-around brain ability, there’s Memory Master, a program 
which tests your color code recognition skills. Two other pro- 
grams in this section are Pick a Number, where the computer 
generates a random number that the user has to guess, and 
Doodle, a program that allows the user to create and edit high 
resolution pictures. 


Look to see how the programs produce animation and how 
graphic characters are generated. There are hints in all of these 
programs on how arcade games are created. Who knows? Some- 
day you may make your own! 
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Death Hunt 


The VIC-20 supports quite an impressive character set, in- 
cluding upper and lower case and even graphic characters! 
These graphic symbols add flair to any program whether they’re 
used for a border or for a game character. Death Hunt is an 
example of a text character game. In it, I used graphic char- 
acters instead of programmable characters to represent the 
game pieces. The object of the game is to maneuver your circle 
( ©) around the screen and capture the black dot (@) (the 
enemy), while being extremely careful not to hit any of the 
mines (Xs) or tombstones (clovers) left by the deaths of your 
foes. After the game is loaded, you will be asked to enter your 
Skill Level, from 1-9. Enter the level you want. The screen 
will clear and the playing field will be drawn. You always begin 
in the top left corner under the SCORE. Maneuver your circle 
using the following keys: | (up), K (down), J (left) and L (right); 
any other key, including the space bar, will stop the circle. Try 
to collect as many points as you can before you CRASH. 


DEATH HUNT 


LGQ REM KEHHH KERR ER HEH 
@ REM ¥# SET SCREEN »% 
120 REM EX EXH KEY KEE RES 
iS@ PRINT CHR$ (447) CHRE (i 44) 
4@ PORE 346879,25 
f2Q INPUT "SEILL LEVEL (i-9}3"sSL 
fF SLil OR SL29 THEN 132 
HM=SLaeSg 
BisO135 


wr pe 
2s 


PGR Re 
Ey +2 
Cf €3 (2 © & 3 

C5 
ry 
if 
€-J 
ro 


oe Pe SPS 
_—* 
C3 TS 


ro 


| ao) 
tm fw po 
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5 ro PO Pr 
“Jo oa Cn 


M1=96 
AM=3072 
g= j 


F=22 


PRINT CHR#(147) "SCORE:" SC 


FOR T=1 TO NM 
PLEINT(RND (1) #484) 
POKE BL+P+PL MI 
POKE B2+r ere .Q 
NEXT 

Pred 


EPS 7782+ INTCRND OL) 403) 


Pee" 

FM RR RR ENA RAE RENE 
REM ¥ START GAME # 
CEM KE RK EE KER EX HERE 
2) oe come ah are ee 

PORE PRIAM,2 

POLE “ere eh 

FORE EFItAMN,@ 

GET RF 

IF R#s"" AND Pest" 


IF fe" THEN REEES 


Peers 

M=a 

IF Re="J" THEN Me- 
If RE="L" THEN Med 
IF Re="K" THEN NEF 


IF RS="1" THEN Me-F 


ul t= THEN Peau! 


LE OCPPENCET GROVER. 


L=PCER UE ait, 

LP oe ANE og 
PORE FP yor 
rP=PP +h 

XS INTCRND (1) #47 
LF k=@ THEN M=0 
YP Red. THON N=- 0 
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THEN 620 


GOTO 628 


BY 


THEN 


THEN 62 


B58 


IF X22 THEN M=F 

If X=3 THEN Me-F 
C=VEER CER SM) 

IFO ESPSP AND ES SCH THEN 620 
Pte tes par 
EPSEP IM 

IF EP?BS THEN EP=83 

IF EPCEY THEN EP=pt 
POKE EF,EN 
FORE EPSAM,@ 

If FPRPSEP THEN 84@ 
GOTO 438 

REM RYH REK HEX HERE 
REM * COLLISION + 
REM KEMN EES ERR RH 

IF LAceN THEN 1032 

FOR T=1 TG 3 
PORE 2 Pat oh 

FOR S=1 TO 10@ 

NEXT 

PORE Fett CR 
FOR S=1 TO i188 
NEXT 
NEAT 

Soot 
PRINT CHRE(19) TAB(?7) $c 
Pesue 
CPs? 7QO24 INT CAND (1) #483) 
[F PEEK (EP) S332 THEN 95 
GOTG 4238 

REM RRR HH KHE EHX 

REM * MUNCH IT x 

REM HERE HHH RN EE 

OM: Sa es a 

rome 36879, 1 

NEXT 

PORE G60. 9¢26 


PRINT CHRE(147) "YOU MUNCHED ITt" 
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PRINT 

PRINT 

PRINT 

PRINT "FLAY AGAIN (¥/N)" 
POKE 1978, 

GET R$ os IF Ree" " THEN 1132 
IF RS="Y" THEN RUN 


PRINT : PRINT : PRINT “SO LONG..." 
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Guided Missile Commander 


Programmable characters are an extremely powerful feature 
of the VIC-20 and Commodore 64 computers. They can be used 
for designing foreign character sets, or simply for making odd 
shapes to use in games. Character Create, a program included 
in this book, was employed for making programmable char- 
acters. It saved a great deal of programming time. 


Stop those 
Alien Pods if 


The main thrust behind Guided Missile Commander is to kill 
as many invading alien pods as possible in under thirty seconds. 
A timer in the upper right portion of the screen constantly 
reminds you of the time remaining. In the upper left corner of 
the screen is your current score. Aliens will come shooting 
across the screen in a horizontal motion, and at random levels, 
subject to your missile fire all the while. The two cursor keys 
control your gun’s horizontal movement, and the space bar fires 
your missile. Once a missile is fired, the cursor keys control 
the horizontal position of the missile, not that of your gunturret. 
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To end a missile’s flight before it goes off the screen, simply 
press the space bar, and a new one will be deployed, taking the 
old one’s place. If you wish to end a missile’s flight without 
launching another one, simply press Q. At the end of the game, 
the computer will tell you your score. Good luck in shooting 
the invaders from outer space! 


GUIDED MISSILE COMMANDER 


{QO REM KERKEKHHHEKERE 
11@ REM * SET SCREEN # 
{2G REM FEEKRKEKXER EER 
{2@ PRINT CHRE(147) CHRE(144) 
149 POKE 36879,25 

15@ POKE 32,29 

16@ PORE 36,28 

178 CLR 

180 FOR 1=7168 TO 7679 
19@ FORE 1,PEER (1+25680) 
20Q@ NEXT 

21@ FOKE 36869,25% 

228 BA=7782 

23@ AM=307 28 

240 PB=8164 

25@ FC=8185 

SOO REM KEKE KKERRRHERRERES 
210 REM * GET SHIF DATA * 
SOO REM FHKE KEKEEEEEERES 


330 FOR T=@ TO 7 

34@ READ C 

35Q@ POKE 7168+T,C 

368 NEXT 

370 DATA 195,60,24,24,24,24, 250,200 


ADD REM HEHEHE KHHEHEEHEEEH HER 
440 REM * GEY BULLET DATA * 
APD FEM HX EKEH ERE EH EERE REESE 
4230 FOR T=@ TQ 7 

44Q@ READ C 
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cy 


oO CA CA CN CAL 


roe oe ae Oo 
“4 CA om OE PI AOS OOO op 
So eg &29Oo 23800808 Ss 2 


Cc 


o 


42 
Gou 


PURE “727647 40 

NEXT 

DATA 16,16,16,40,.48,4@,108.132 
REM 4H RHEK ERE MHA KK RR KRY 

REM * GET ENEMY DATA »¥ 

REM ¥HERXER ER RERK ER REE 

FOR T=@ TO 7 

REAR C 

PORE 71844+T,C 

NEXT 

DATA 2,80,0,68,66.255 66,48 
FEM MEMHK ERR EMH EEK 

REM * START GAME * 

FEM SE REH RHR ERE RHE 

PRINT CHRE (147) ee 
PRINT TAB(LS) "TIME: 
PP=8154 

TI$="00@000" 

AN=Q 

SC=2 

MP SPP 

MS=@ 

Ye INTCRND (£) #1241) 

AN=AN+ ft 

EP=BA+22#Y 

ES=EF 

POE JER 2 

FOKE EFIAM.2 

PORE PD 

PORE FP+FAM,@ 

REPEER C1973 

TE=RIGHTE (TLE, 2) 

Tis RIGHTS ("O"4S TRE (38~-VAL (TE) ) ,2) 
IF VYSlLité#:<@ THEN 143@ 
PRINT CHEE (19) eae 2G) Ts 
TF ko 3L AND KS323 THEN 878 
LF OMS=1 THEN a70 
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368 
87% 
88@ 
876 
722 
912 
722 
928 
942 
950 
260 
97% 
780 


POKE FP 
IF MS=] 
IF Ke 
IF KS 
IF 
IF 
IF 
IF 
eo 
LF. tee S 
PORE PF - 
POKE PF 
FOKE PF 


i 
ia bo 


CO rs PS Cb es 0 


oS 
uO Ot 
C4 ov fo 


if 


~W 
> 


Pes 

THEN FORE MF,32 

AND PPOPB THEN PPREFF-1 
AND PE<PC THEN PPSFP+ i 
AND FPRPOPB THEN MP=MP- 1 
AND PRSPO THEN MP=MP +) 
THEN MS=1 

OR K=34 THEN MP=PP 
THEN MS=Q GOTO 1858 
31 AND KC323 THEN 778 
Line 

Q 

tAN,@ 


990 1F MS=@ THEN 1052 
MP=MP-22 

IF MP<BA THEN MP=PF 

IF PEER (MP)=2 THEN 123 
POKE MP, 

POKE MP HAM, Q 

POKE £P,32 


La2a 
1812 
1822 
i@39 
1848 
1056 
1@40 
1872 
Lad? 
1898 
11@2 
1208 
121@ 
fae 

1232 
12408 
1252 
1258 
1270 
1280 
1290 
1588 
131% 
132 


EPSEP +S 


{ 


IF EFSESt?21 THEN 7128 
PURE EPS e 

POKE EPR+AM,@ 

GOTO 7972 

FEM FREKKEEKEE EERE 


REM * ENEMY HIT # 
REM FRE RHEKEEEKEE 
FOR T=1 TO 12 
POKE MP4 

FOR S=1 TO 32 
NEXT 

POKE MF, 2 

FOR S=1 TO 3a 
NEXT 

NEXT 

POKE MP, 32 


PULL Tay eon 
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M 


iy 


GOTO 7OU 


=Q 3 


GOTO 


PO. 


2 3Q 
1348 
1358 
1268 
142Q 
1410 
1420 
1438 
144 
1438 
1462 
147@ 
1482 
149Q 
1500 
1518 
1528 
eee 
1549 
155 
i562 
Lor 
1588 
bo? 
16489 
1412 
1628 
1639 
1640 
1450 


1668 


POKE PP, 32 
SCaSCHi 

PRINT CHRE(19) TAB(4) SC 
COTO 699 

REM HEEEXKREKKERKHE REE 

REM * QUT OF TIME x 

REM KEE RKREEHREKHHK EH 

FOR T=1 TO 20 

POKE PP 32 

FOR S=1 TO 5Q 


NEXT 

POKE PP,Q 

FOR S=1 TO SQ 
NEXT 

NEXT 


PRINT CHR$(147) 
POKE 36949,240 

PRINT "YOU'RE OUT OF TIME! # 
PRINT 

PRINT "YOU KILLED" SC "OUT OF" AN; 
PRINT "POSSIBLE!" 

PRINT 

PRINT "PLAY AGAIN (Y/N) ® 
POKE 193,2 

POKE 197,64 

GET RE : IF R="" THEN 1612 
IF RS="N" THEN END 

IF RESO"Y" THEN 161 

PRINT CHRS(147) 

POKE 34849,255 

GOTO 438 
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Music Machine 


The VIC’s potential as a music-making machine is absolutely 
fantastic. Its sound producing capabilities are far better than 
many other computers out today, in both quality and ease of 
use. With four different voices covering a multiple range of 
octaves, it is a very nice machine to program. The potential is 
great, especially if you’re programming in machine language, 
and even more is possible if you have added memory. 


Music Machine demonstrates the VIC’s various sound registers 
and volume control. It also includes a routine to adjust the 
release value of a note. Your notes can be quick and sharp, or 
they can be long and drawn out. Understanding and using 
Music Machine is quite simple. If you would like to adjust the 
volume, enter a + or a —, depending on whether you would 
like to raise or lower the volume accordingly. Entering a 1 
through a 4 will change the voice register. Using it, you can 
give your notes a low, medium or high pitch. Entering a 4 will 
activate the white noise register, which will produce a raspy, 
grinding sound, an effect useful for crashes, skidding, and var- 
ious other unpleasantries. 


Lastly, to adjust the length of a note, press the cursor down 
key or hold in the shift key and press cursor up. This will, as 
previously stated, control how long a particular note is played. 
Many enjoyable and not-so-enjoyable effects can be made with 
this program. Have fun! 


MUSIC MACHINE 


re «=ED 
Ff Ct 


PRINT CHRS(147) CHRE (144) 
PORE: G94 Teed 

¥VL=36078 

V(l) 236974 

V(2} 236875 

V03) 36876 

L689 Vi4d)=36877 

17@ DELAY=38 

ce OCC E Sy 

17@ CVs 

2QO8 PORE VLCV 

ZAR REM RH EMENK REE HER ERY 

OO WE a PCUN GOREN & 

S2O REM FERRER HHHEEERHRESE 

S30 FRINT CHRS(19) TADC4) "MUSIC MACHINE" 
34Q CRINT 


re —_ eo pt ~~ -— 
eS 


CY > CY 


f&) © 6s 


100 


oR 
7 & 


aoe | 


SS © 


“7 

é 

md 
Soe 
7 

“ww! 

Es 


-9 2 


DS > SS ty 
Ld Ro ee 
oC G | se 


pt 


Lit +> 
Ss > 
Ss Ge 


me) 
—s 
S&S 


bo 


3 CA oA Cr OA on LA 
“9 © O84 > Om Cf Cl 


m~ ch A 
Lasts 
Ooo qe ge ger & ms «e 


Poe 


“d 


re 


4S Oe 
— 
a 


“see 
aoe 
tod 


PRING 
PRINT “ENTER (1-4) FOR VOICE” 
PRINT Ro- FOR VOLUME" 


—~r ~ 


ca ey 


Hh FOR" 


ty r rer ro 
\ U cag f ween 


ese oS ee 
+ + 
Kone 
eas) 


pas € 


NT 
PRINT "NOTES ARE BASED on" 
PRINT "ASCII FERGM KEYS" 
PRINT "PRESSED, * 
REM £HM KEENE KR EK Y 
REM # GET FRESS +# 
REM RE RH ERX REE KK 
GET KEYS : IF KEY$="" THEN 53g 
REY=ASCCREV$) +62 


iF REYS=s"4" O08 KEYSe” THEN 839 

[TF VAL(KEYS) 2 @ AND pene ie THEN 739 
if REYS=CHRS (17) OR KEYS=SCHRS (145) THEN 
Pe TEN ede THEN & Se 

PORE VOLCE sey 


— eG 


aoe 
oe 
rym 
ee 
= 


uF 


Ck 

Q 
NEXT 
POG. 7OTCE «td 
GUTO OS 

SEM XHX HERR R HR KEY 
REM A GET AIOTCE 3 


REM XEXE PERE MEEEY 
VOTCESY (VAL CREY S$) | 

GOTO 33a 

REM XE RANE RUKH EHS 

REM *# SET VOLUME x 

PEM 2XRX EMER YY Y EER 

IF REYS="'" AND CVS1S THEN 
if REY$="—" AND CY2@ THEN 
Pee! Wwe Y 

SOTO 33 


ms oe t 4 
CVO + } 


CVRCY- 1 
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ESET EN Oe TED TTT TTT OT eT TT NT ER ee ET Te oT Ne ee ET ENC NC Ie mR OTTO Ne ere Dice 
i m i iii CRIN shia SPR ROPER EE er aera te ee ee ii aN i CF EE a ey Ey TE ee Re ae a nt NE Pe a I ey a ET 


019 REM * SET DELAY * 

D2Q REM RHEKEHREREREES 

O78 IF KEYS=CHRE (14S) THEN DELAY=DELAY: 32 
9449 IF KEYS=CHRSCL7) AND DELAY?@ TREN DELAY= 
DELAY §& 

959 COTO S38 
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Tank Command 


Remember the very first video games like PONG? When they 
hit the market, you saw them only in bowling alleys. I remem- 
ber a particular one with a tank I liked very much, because 
I’ve always envisioned myself as a famous tank commander. I 
decided I wanted to make something like that for the VIC. 
Unfortunately, mine is only a 5K machine, and worse yet, it 
only has one joystick port! As you can guess by now, I had to 
settle for something less elaborate. But not to fear! Tank Com- 
mand is a very neat game. It gives a perfect example of con- 
trolling a programmable character via the joystick. Your 
television or monitor screen will fill up with beautiful green 
pine trees and horrible, nasty steel mines. Your tank appears 
at the lower left portion of the screen, ready for your commands. 
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Your mission, should you decide to accept it, is to clear the field 
of all its mines so your company can march through safely. 
Controlling the tank is easy. Just move the joystick in the 
direction you wish to travel, and press the fire button when 
you wish to shoot a ground-to-ground missile. Touching a mine 
will destroy your tank and end the game. I tried to give a time 
limit on the game, but it seems that when I tried to use the 
joystick and the clock at the same time, the clock kept resetting 
itself. Perhaps those of you with more machine memory can 
change it so two people can battle each other. Feel free to modify 
it to suit your needs. 


TANE COMMAND 


126 PRINT CHR$(147) CHR#(144) 
110 POKE 52.28 
{20 POKE 54,28 


ae Oe 


AO MOI ee ea 
PSO FUE 26e/o ate 
168 FA=3/137 


172 PR=FA+1LS 
18@ POKE FAIS .B 
L°@ DDHFE!2 
20@ NOs36077 


218 FOKE 34869,255 
geQ COR (=7469 TQ 7479 
220 POKE 1.PEER (1125400: 


c4Q NEXT 
aa PN=2 3 
260 75734 


2G TET SS 


300 MI=38 
z1@ CT=TN 
728 FOR L=7432 10 7497 


SOO REE ONE 
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NEXT 


358 


uw 


INTCRND(L)y 


TPs 


41Q 


me 
_ 


LTP! 


ON de 
ce 


POKE € 
NEXT 


439 
440 


ene 4 MI 


AE SC 


t 
a 


‘2 FO 


499 


47 


OKE CSIMP, 4 


NEXT 


m 
j 


47 Q 


FUR EER EHS 


REM 


600 


EM xX ER HRY 


a 
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G20 F 


‘aol dee 


R=Ty 


Th THEN 


ee 
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ww 


THEN 
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SCT X41 ODRTY, 


ww 
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75@ IF OBFh! THEN 1332 

ew HARA “Sa A ae Pye 

iG TPXER &. DU eY 

728 GOTO 382 

BAD FEM XXREHE KERR 

Soe ie. eS wees 

GOA FEM AMEE ER HEE HEY 

So0 PORE. o600 yet 

849 FOKE 26874,248 

G60 FOR Tail TO 20 : NEXT 

840 FORE 26877,2 

870 FORE 26074,2 

B8@ IF CT=TN AND T¥=@ THEN 6386 
890 IF CT=TS AMD T¥=22 THEN 6528 
902 IF CT=TW AND Tx=@ THEN 632 
91@ IF CT=TE AND TX=21 THEN $32 
920 IF CT=TW THEN LI=@ : SP=-1 3: GOTO 1896 
93@ IF CT=TE THEN Li=21 : SP=1i1 : GOTO 1@¢88 
742 TF CTSTW THEN LI=@ : SF=-1 
966 Tf CTS'S THEN Liese + GPel 
SOO FOR, Hyetyeor TO sel Stee “oF 
CIO PORE ob 07 64248 


é 
78@ POKE 14876 ,@ 
290 PPESL+TX+2DeMY 
1@00 UMFPEER (ED) 


L218 POKE PP, 39 

1020 PORE Pre so72a,2 

103@ If UM=MI THEN Ci=Ci+ti + GOSUL i2ee 

{040 IF UM=TR THEN C2=C? } 

{O50 PURE PR 32 

{260 IF UMeTR OR UM=ML THEN MY=SPE#"23 5 NEXT 
COTO 432 

{Q7@ NEXT s GOTG 43e 

199@ FON M¥=TXISF TO LI STEP SF 

1290 PRSSCeMKED2eTY 

L100 UM=PEER (EP) 

Lit@ POKE PPL45 

1120 FOKE PF+30728.2 
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1158 IF UM=MI THEN CC=CC+i +: GOSUB 129¢@ 

L140 PORE FPy32 

LicQ IF UM=TR OR UM=M1] THEN MX=SP#e23 + NEY 
SOTO &63@ 

1168 NEXT +: GOTO 4638 

LEGO REM BERKHER HEE EHEX 

i21G REM * EXFLOSIQN + 

L220 REM HEF REREX EHS E 

ee POKE 34877,129 

12408 FOR T=15 TO @ STEF 1 

eu@ FOR S=1 TO 400 : NEXT 

1260 PORE 34978.7T 

L270 PORE 36877,8 

1288 FOKE 34878,15 

12°8 RETURN 

LEQO REM RERKH KEKE HEY 

1318 REM ¥* INTO MINE # 

LIZ REM H¥RKX HEME H KH 

L358 BReSCt+TX+e2e Ty 

1348 FOR T=i Td 5 

1358 FOR S=34 10 33 STEF ~-{ 

Poot PELE BPS 

1378 N=INTCRND (1) #1294+1283 

bace PORE “566 7G. N 

1392 FOR Wel TO 3 

140@ NEXT 

1410 NEXT 

1428 NEXT 

1430 PORE 36374,9 

1440 FORE 268469,248 

1450 PRINT CHRS(147) "ANOTHER GOME Gyn)" 

i460 FORE 198.0 

14/0 GET ¥$ ¢ LP Yee" THEN 1478 

L49@ TF ¥t="¥" THEN FUN 

1490 END 

LEGO REM HE¥MEX HERH KEK 

1512 REM * JOY READ x 

LE2Z8 REM ERXKHE KH HES 
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LA ON 
LS am t+ 
Cf C3 CG 


ee oo oe oe a oe 
Oo C7 CA EM cn C4 

— © ~7 CO ~~ Cr 
m8c 68 Ss & 


ss 
cr 
bone] 


1628 
1638 
1640 
1650 
L650 
1470 
1439@ 
167@ 


Pee SOD dee 

JV=PEEK (PA) AND 68 

JVeJ¥ OR (FEER CPB) AND 120) 

POE D042 as 

FORE NO, 208 

FORE NQ,@ 

RETURN 

PEM KEE KHEKEHEEK EES 

REM * FROG CHARS # 

PEM ¥ SEE REN ERE RY # 

DATA 3,187,187, cP led les, oe 
DEA Vey lola eon yeu ae Ors Lar, 8 
DATA D254. 054 A2B 127 128, 254, 25 4 
DATA Bata @ied eet ecosaods lid ated 
DATA (See Gia Pde Oe ae ie 
Dey 6a eo fe Ow ON Bog 77 oes 

DATA By besitos Loy doy boy load 


108 


Memory Master 


Having a good memory is of benefit to anyone. Whether youre 
into Pre-Law, Pre-Med, Biology or dumping the trash, it can 
help you. Programmers with a good memory can easily re- 
member PEEK and POKE locations, and they hardly ever need 
to use the reference manual. Believe me, this can save a lot of 
time. There are various ways to improve your memory. Some 
people listen to cassettes played while they are sleeping, and 
others read manuals on the subject. There is also a third way, 
and that’s just plain practice. Memory Master is a program to 
do just that. Not only is it fun, but it also helps improve your 
recording skills. Based on color code recognition, it helps you 
recognize specific patterns on cue. There are many different 
forms of memory, and this program helps you with just one of 
them. (Spelling Practice helps you with another!) 


Memory Master is easy to get going. When the program is RUN. 
you will notice that the screen is divided up into four color- 
coded sections. Next, Memory Master will play a note for you 
and flash the matching portion of the screen. You, in return, 
must memorize and then replay that note, using the keys Q, 
W, A, and S, each of which represents one section of the screen. 
Notice how these four keys make a square, with each one rep- 
resenting a corner of the box. The note that Memory Master 
played for you is stored in memory, and another is added on. 
Now both notes are played, and you are expected to repeat 
them. Seem easy? Not for long it isn’t! This process goes on 
until you blow it and enter a wrong note. When this is done, 
you will hear a sour note being played, and the screen will 
flash in a variety of colors. This game is like the commercial 
game, Simon. As a cheating device, I have included a replay 
function. That is, if you want to hear the series of notes played 
over, press F1, and the entire collection will be played again 
so that you may enter it correctly. When you lose (you will’), 
the total number of notes that you memorized will be displayed. 
Improving your score should not be difficult. 
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MEMORY MASTER 


10 
112 
120 
132 
143 
138 
168 
172 
18 
172 
288 
21a 
22Q 
258 
248 
28 
262 
ae 
82 
278 
38¢ 
3128 
32 
358 
342 
400 
412 
ALG 
432 
§4Q 
43a 
c 
460 
47Q 
JOG 
a 


we 


PRINT CHRS(147) CHR (144) 
PURE: 3690/7 7420 

PORE 66873515 

Vl=36876 

Dit SO0979) 

FOR T=O0 TQ 3 
NOit) =i 30+ 7T#20 

NEXT 

FOR LOC=7688 TO 8163 

FORE LOC, 1468 

NEXT 

FOR LOC#7S88 TO 7SG8+99 
READ BYTE 

PURE BUC yO Te 

NEXT 

FOR T=8 TO 79 

SQCT) ee 7 
NEXT 

FOR T=@ TQ 
POE “aes 
BY5 7 20u 
NEXT 

FOR T=1 TO SOQ 
HE XT 

ou=¢ 

REM FREER EEE RL EXE 
REM. 2 PLAY Seo ® 
REM XREEEREEKHRES 
FOR TM=@ TO SG 
SF=SQ(TM) 


ud 


TF SFO THEN GFeINTCRND CI) #4) 


GOSUB 838 

NEXT TM 

REM 2EREXEERKERS 
PE Me Ge ACE Ge 
REM XEKHEKERER HER 
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SQ 


FOR TM=@ TQ $Q 


948 R=PEEK(197) : IF R=64 THEN 549 


woe 
160 


IF R=39 THEN TM=S@+1 : NEXT : GOTO 43a 
IF R<?48 AND Ree? AND RCSL? AND ROe41 TH 


EN 342 


2/72 
18Q 
570 
600 
612 
620 
638 
&42 
78Q 
71 
728 
fee 

74 
ee 

768 
770 
GQ 
818 
G20 
832 
848 
dQ 
G60 
87@ 
G38a 
8° 
900 
918 
926 
932 
248 
938 
768 


IF R=48 THEN SF=Q 
IF R=9 THEN SF=1 
IF R=17 THEN SF=2 
IF R=41 THEN SF=3 
IF SF<cSQ(TM) THEN Vi=36877 
GOSUB 832 

IF SF<?SQCTM) THEN 938 
NEXT TM 

REM HE KERKHERE 
REM * ANOTHER +* 
REM ¥HRKREEEHHER 
50=SQ+1 

FOR T=1 TO 5@8 
NEXT 

GOTO 4238 

END 

REM ERK RKEREEERE 
REM * FLASH BOX * 
REM HERE KE RHEE RREYE 
PORE. “ggoe or 

oYS 7/380 

FOKE Vi,NO(SF) 
FOR T=1 TO 108 
NEXT 

POKE V1,@ 

RETURN 

REM FER ERHKEX 

REM #* LOST # 

REM HK EREEY 

FOR T=@ TO 255 
PORE 6079-1 

NEXT 

PURGE. e607 7420 
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97@ PRINT 
780 PRINT 
998 FRINT 
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L178 
1190 
1192 
1202 
1218 
hoe 
1238 


240 
24@ 
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END 
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Pick A Number 


Just about every child enjoys guessing games. For those of you 
new to programming, it is a good place to start understanding 
how games are made using random numbers. You may want 
to enhance it, but in the meantime, your children should enjoy 
it immensely as it is. 


anon ane 
e It’s. comina to on 
S. 1a, ne 


Pick a Number randomly selects a number from 1—100 and 
asks you to find the number it has picked. The computer tells 
you if your guess is too low or too high. Should you win, the 
computer flashes the screen in a variety of colors. After each 
wrong guess, you must press a key to continue. The number of 
guesses it took for you to determine the number is posted at 
the end of the game. See if you can determine the most efficient 
strategy for deducing the computer’s number. If you play the 
numbers, do not use this program! 
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PICK A NUMBER 


1@0 PRINT CHRE(L47) CHRE (144) 

110 PORE 36879 .25 

ZOQ REM KERR EEREHNEKS 

210 REM 4 CE? GUESS. % 

220 FEM BX RH HRK RHR EY 

2358 ANSSINTIRND(1)*10@+1) =: G=0 
24@ GOSUE G20 

250> PRINT CHRSE CLS): 3: PRINT oe PRINT 


200: PRINT “GUESS. bho 

270 QUESS$="" 

280 INPUT GUESS$ 

270 IF GUESS$="" THEN 24¢ 

280 G=Gtl 

210 GUEGS=VAL (GUESS$) 

32@ IF GUESS<1 OR GUESS?198 THEN 922 


S30 IF GUESS“ ANS THEN 33 

Z4@2 IF GUESS=ANS THEN 1828 
ABQ REM FERED REE E REE K ER EE ESS 
418 REM 4¥ GUESS 1S 7 ANSWER * 
AZO REM HREKENKEH EKER REE RD EF 
43@ FRINT : PRINT "TOO EG!" 
449 COSUE 732 

4302 GUSUB 83a 

448 ofTC 248 

SOQ REM CX KHMER ERK HK E ERE ER EH 
Jeo FEM * GUESS IS < ANGWER. 2 
PEM ER XEE RY RR AREER HEE ERE 
PNR Oe PRA a sae 
GOSUE 732 

COSUB 830 

GdTad 24@ 

REM RRR EMERY ERE FERRE DES 
PEM * FRINT TOF BORDER % 
CEM £EX REESE KER HEEREE EE ES 
PRINY CHR (147) TABS) 3 
PRINT SNS DER. “Gob oo” 


ee 


tc Oo c- com ce cR ON CA CH CA 
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PRINT TAE(S) 
RETURN 

REM HORE XK ROY 

REM & GE PRESS. & 

PEM KER MEH ER ER REY 

Oa RS. ee fb OTHER ee 
RETURN 

REM YEY ORES HEY EVEN HRY 

Cem © POSTE LON CURSOR « 

REM SK HENERERE ER EREY RY BY 

Pe Ce oe a ORCL AT a GET 
Piel ta. 2. PRE 

RE TURAN 


PEM RRR RE REX 


YEE RY 


REM * OUT OF DOQUNDS + 


REM ERY HAR EEK HED 
PRINT 


PRINT "QUT OF BC 
GOSUE 73a 
GOSUB 830 


GOTQ 248 

ROM ¥RXE KA REERE 
REM * GUESSED I 
REM 4X KE EE RHEE 
PRINT 

PILE. "DOME TN" 
POR Teg 710 29a 
PURE SGG/F4 1. 3 
POE 34879, 25 
LOSUB 738 

rmUN 
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HERE 


UNDS 1-108! 
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EER 
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NEAT 


Doodle 


High resolution graphics is one of my favorite aspects of a 
computer. There is nothing I like better than a scrolling graph- 
ics display, or a well drawn picture. Colors also add to any 
display. The unexpanded VIC is somewhat limited in its high 
resolution capabilities. The VIC is capable of displaying two 
colors in an 8 x 8 block. The resolution is also limited to 64 
vertical dots x 64 horizontal dots. Doodle is a great program 
for doing exactly as its name implies, doodling. To control the 
dots’ north, south, east and west direction, type |, K, J or L, 
respectively. To draw in black, press 1, and to draw in white, 
press ¢. If you are not too pleased with the picture you are 
drawing, press CLR to erase the hi-res screen. Here is the 
listing: 
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Cc 


+B 09 
Mm Oo & & 


Cc o> 


tf 2 e+ & 


o- 


oo Oo 
CA +> 
So Ooe 8 GD rs 


o- 
(=~ 


Pe CUS Lee CARS ea a) 


REM EEEN PEPE KERK ERY ERE RE 

PEM * CHAR SET FOINTER * 

REM REX EREXYV EEE ER EY RER EX 

PORE 56069 e200 

REP KEKE REE REE SRE KATE ERERE 
REM © LLR HL RES SCREEN * 
REM EERE RE ER ER ER ERE EERE ESE 
Pt Lee ee. 4G & 

Pore bed 

NE KT 

REM HERE HEY EX RE RE ERE ERE Y 

Pot ee ELON Gey SCREEN & 


TEM XRF HKKRKER HEE EREKEEES 

FOR T=768@ TO 3135 

Pics Sa ew 

NEXT 

PEM SEF ERE RK KAI ERLE RHEE EKEERS 
Pe CP, IG lia SON SCREEN, 
REM FERRER EHR REY HERE AE REM HERE RY 
FOR L2@ TO 7 

FOR M=8 [TO 7 

OVE PEOetie sy 24 fue en 

NEXT 

NEXT 

K=Q 

¥=Q 


REM EH ERESHES 

REM & START # 

REM HEX X ERE 
REPEER CES) 

LF Be6? THEN 338 
TF ke® THEN FORE 34879,8 3 CoO= 
Te ete THEN PORE 33 
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630 [TF k=2@ AND X?@ THEN X=X-1 

640 ITF K=21 AND X¥<63 THEN X=X+1 

65@ IF K=12 AND Y>@ THEN Y=Y-1l 

66@ IF K=44 AND Y¢63 THEN Y=Yri 

TOS FEM FEE HHUHE EER EHR XL EKEY 

71@ REM * EQUATION FOR boT + 

TED REM KER HH HE KRHA HERE EERE 

708 CHAR=INT(X/8) *8+1INT(Y/8) 

74@ ROW=(Y/8-INTCY/8)) #8 

738 BYTE=71468+CHAR#98+ROW 

760 GBIT=7-(X AND 7} 

GOA REM FHEXHKEK KEKE ER HEE KER EX 

81@ REM *« FUT DOT ON SCREEN # 

GIO REM Hee ER KH KE RR EK ERX EK ES 

S30 IF CO=@ THEN PORE BYTE PEER (BYTE) AND (2 
seve BIT) + GOTG $38 

S40 FORE BYTE ,FEEK (BYTE) OR (2°BIT) 


820 GOTO 638 
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BUSINESS PROGRAMS 


Designing a business program for a general audience is some- 
what difficult since many such programs are custom-tailored 
to a specific company’s or person’s specifications. What type of 
program in this category can apply to a general group of busi- 
ness applications? The programs included in this section can 
be modified for a specific business need, but most of them are 
written for any business with general business applications. 
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The five business programs cover a wide range of practical 
applications. The Appointment Scheduler provides the busy 
business executive with a clear record of his various appoint- 
ments and other dates on a monthly basis. Bar Graph gives a 
graphic representation of various business trends. This allows 
the user to see, at a glance, how a business, a stock or any 
other value changes over a calendar year. Cash Flow shows the 
real value of an investment with a known cash flow over a 
given number of years. Interest Rate quickly determines how 
much money can be made with a particular investment over 
the years, depending on whether it is compounded yearly, quar- 
terly or monthly. The Checkbook program is an accurate and 
simple way to keep track of what you earn and spend in busi- 
ness, and the Inventory program will record files of what stock 
you have and what stock you have sold. It is a handy database 
program for the small business person. 


The programs can, and should, be changed to meet your own 
specific needs. In making such changes, not only can you learn 
something about programming, but you can also create new 
ways to evaluate business decisions. 
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Appointment Scheduler 


Business schedules can become hectic if they aren't properly 
organized, and if an appointment is missed, it can mean the 
difference between an important contract being won or lost. 


Using Appointment Scheduler, it is easy to keep track of every- 
thing from a business meeting to your anniversary. Everything 
is menu driven. To use it for the first time, you must initialize 
a file for that month. You do this only once, at the first of the 
month (reinitializing a file will destroy all the data you have 
entered for that month). To initialize a file, type a 93 on the 
master menu. Next, it will ask you the month for which you 
would like to create a file. Simply enter a three-digit code for 
the month (e.g., JAN, FEB, MAR). Now you're on your way. 
The next thing to do is to read in your appointments from the 
disk. If you haven’t entered anything yet, that’s okay; it won't 
do anything. Now you can edit and add dates to the file. Simply 
enter a 4, and you will be prompted with the following: 


<A>DD/<D>ELETE/ 
<LO>IST/<Q> UIT: 
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Enter an A for add. You will be prompted for a DATE and a 
WHAT. Enter the date of your appointment and hit RETURN, 
then enter the significance of the date. After doing this, you 
will see all your appointments listed on the screen, and the 
same questions will be asked again. If, at any time, you wish 
to delete an entry, type a D. The program will ask you which 
entry you wish to delete. Enter the number to the left of the 
date of your function, and hit RETURN. Your dates will be 
relisted and your function will no longer be listed. Type a Q 
when you are finished entering dates. At this point, you can 
either write the dates to disk or print them out. First, to be 
safe, let’s write them to disk. Enter a 3 and the month (3 
characters), and the computer will do its job. Now that you are 
back into the main menu again, you are ready to get a printout 
of all your appointments. Enter a 1. You will be asked if you 
wish to direct the output to the <P>RINTER orthe <S>CREEN. 
Enter a P or an S accordingly. When it’s all through listing 
your appointments, the program will ask you to press RE- 
TURN. Upon doing so, you will be returned to the master menu 
again. Now you're on your own. 


Remember to create a month only once, and that before vou ever 
do anvthing to a month, you must read tt in first. 


PPP GIHTREN SOC UULET 


1@@ FRINT CHR 
11@ FORE 3487 
128 CHeaCHRs ¢ 
1230 Dit DAT 
146 OFEN 2,8 
PAQ FEM KR EX AKER SEER EMS 

210. CEM & PRINT GCREERN. % 

AOA CCM XRAY RER KAREN ERE E 

230 PRINT CHRD CIS?) TAR Car "DATE Boo” 
24@ TRINT © PRINT s FRINT 

SUG PRINT MMENGE” 2. PRI 

DOU PRCT ede CDN. GUT BATES” 


47) CHRE C144) 
a 


: 
Is) 
(ZL) MUTATE C34) 
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270 PRINT "{2) READ IN DATES" 
280 PRINT "32 WRITE OUT DATES" 
290 PRINT "<4> EDIT DATES" 

300 PRINT "<S> CREATE A MONTH" 


a: TE aha 
22@ PRINT 3 
S50 INPOTRS oA 
340 AVAL CAF) 
SOQ IF Act OR Az’ THEN 332 

368 GN & GOTO 504 7 30.730 51 L301 738 

37@ FRINT : PRINT : END 

4OG FEM EMHRNKER ERE HH EY 

410 REM * FRINT DATES + 

420 REM REX KHER HR HHEN REY 

S20 PRINT CHRE (1473 cet he ee ae Ce Ap cls 


A4Q INPUTS WE 


GUILT" 
PMs OG ee et 


“a O&O oF 
r-~4 


ASG GF WEle"P! AND WELS"S" THEN 23g 
448 IF WH="S" THEN Sig 


490 PRINTHL. "APPOINTMENTS FOR THE MONTH oF © 


WEQ PRINTHL 04% 

OL@ PRINT 2 PRINT 

ve8 FOR T=@ TO CNTR I 

So@ IF CNTR=2 THEN PRINT "NOME ENTERED” - GU 
ro G0 

S48 IF WEe"P" THEN FRINTSL DATE IT) Ch wate: 
one Be He 

Wo PRINT DATE (T) s PRINT WHATS (T) ¢ PRINT 
S6@ NEXT 

v7 UO PORE 197 204 

SG@ [TF PEER (I97}=44 THEN 978 

S7O@ LF WS"F" THEN CLOSE 4 

S@@ GOTO 2% 

POO ROM PARA KR ERE HERE KEES 

72 REM # READ IN DATES # 

TOG REM SEX RU ERE NRO RED EES 


12e 


r. 3 


eS 3 F3 


C3 0% - cd 
eS 


| ne eet ann SO aera 
[oo iene oe See 
© G&G 


CS 3 


ew ted 


fis gee eee 


Cy 


wm © 
Fine 


re 


Cx 


rs 


PRINT CHRS(147) "FOR THE 
LHPUTaS MOS 
IF LEN(MO$) 222 THEN 22 


OPEN 


ee 
\ 


a) 
4 


=Q 


Q 


Pe Cae 


Ee 


Q 


CN TE 


CLUS 
REM 
Way 
REM 


PRINT ChHRE (147) 


DATEC CNTR} =e” 


24" VERS 


ATS CONTR? 


OF 


't tMOE4 1" 


DATS { 


=CNTRIL + GOTO 78d 
E 2: GoTo 23 
PRYKEK ARF RKH ARH ALEK 


WRITE OUT DATES * 


XEYREMEN ERE SPREE EE 
THE MONTH 


MONTH 


WHATS CONTR) 


CNTE) = 


aes 


INPUT#., 


MO4 


[F LEN (MOS) (53 THER 238 
OPEN Serene Aj 


2 
CI = 


mawmr 
or 


oc Re 


3 -- 
z 


Se ge, 
¥ rt 


ae 


oe 


4 


ee 


” 
+. 


CD 


“SOE D Aes 


2, "8; DATES 
TO CNTR 


Oy eee 


EKRUEERRHEENK ENE 


IT DATES 


¥ 
m 


PR RY UEEEEER EEE 


the CURE (147) 


"+Mad 


"aMODEI"S 
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cane 5 
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papctes: 


rae 


tee Oo 


THER 


C af qT Ky » 


Pp 


wa 
| ara 


hy eM Ee a SO ates OE i ee Oe? 


NT Tid "DATE: "sDATSE 
NT TAR(4) “WHATS "Ss WHA 
My 

we 

\ 

NY os PRINT "CarDOs<b: 
He SC a ae 
UTHS AS 
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5 ee 


ait" 


Ore 


Pe ie 


wy 
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a 
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nad 
1242 
1259 
12 ae 
1322 
1218 
1228 
1238 
134¢ 
rou 

i369 
hou 

1380 
Love 
1482 
141Q 
L420 
1438 
144Q 


L720 
174% 


HRURARRRRVOLAN RAS 
AUUEIHDIUATNRUEAELIOAUIN 


PRINT : PRINT 

IF Aa$="Q" THEN 23 
LF At="L" THEN L13@ 
IF Ag="D" THEN 153 
REM #EXEXR ERE ERS 
REM ¥ ADD DATE x 
REM EX RHHE RK EHS 
IF CNTR?=31 THEN 1138 
PRINT MDATES" 
INPUT#3 , DS 

IF D#="Q" THEN 223 
PRINT 

PRINT "WHAT: " 
INPUTS 3 WS 

IF WE="O" THEN 223 
DATE CCNTR) =D¢4 
WHATE(CNTR) =Wt 
CNTRECNTR+ 4 
DATEI(CNTR) ="EQF? 
WHATHE (CNTR S"EQF" 
SQTO 1122 


S REM REX KHER ER REX KY 


REM * DELETE DATE x 

REM XX KER EK KK EKE EY 

PRINT "ITTEM# TQ DELETE: ": 
INPUT#3 NUM 

TIF NUM 1 OR NUMSCNTR THEN 113@ 
FOR TSNUM- 1 TO CNTR~£ 

DATE (TP HDATH#E(T42) 
WHATS (7) =WHATE (T4+1) 

NEXT 

CENT RECNTR- f 

GOD 450 

REM ERX RES HOR RE RE REX 

REM * CREATE A MONTH » 

REM FERRER EKER VAR ER KY 

PRINT CHRE(L47) "MONTH Td CREATE: " 
INPUT#HS NOS 
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IF LEN(MO$)< 23 THEN 228 

OPEN: owe aie 
PRINT#iS,"S@:DATES "AhOd 

CEOGe. .s 

OPEN 2.8.2, "Q:DATES-"+MOG4" 5," 
BRUNT He, EOF” sC4- “ECR” 

CLOSE “2 

GOTO 230 
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Bar Graph 


It’s always nice to see profits or losses, buying trends, stock 
prices, and similar business changes in chart or bar graph form. 
It gives the viewer a much clearer and more useful understand- 
ing of the data. That’s why the Bar Graph program for business 
was constructed. It is extremely simple in design and you can 
enhance it for your particular business applications. All it asks 
you for is twelve monthly amounts to graph. Once they have 
been entered, press a key to view the graph. Each section of 
the bars is represented by a VIC-20 graphics character. Once 
the graph is shown, you may press any key to start the program 
over again (Remember: Buy LOW, Sell HIGH). 


(| mn) 
/ 
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Y ORBPH 


LBA REM HEE RS ERE REE KEE EES 
112 FEM ¥ SET VARTABLES *% 
L2Q REM 4X RAEKE REE E RES KER 
1390 M=30726 

{48 ANS2e 

tS@ Fel.2 

L1é@ D=9E 

178 DIM MNTHS Cli) MNTH CTO) 
i890 FOR T=@ TO it 

i170 READ MNTHS(T) 

2O@ NEXT 


338 


+> 
co 


ted tel ty 


3 CO Nc Cf 
Oe QO & ts Ss G&G 


a> ry cv i-J 


S 


DATA "J AN” "FEB" "MARY "APR", 
DATA "JUN" "JUL", "AUG". "SEE", 
DATA NOU" "DEL" 

REM KRY XHKEM HERE E RY 

REM # DE? SCREEN. * 

REM EER EN KHER EX EX 

PRINT CHRE (147) CHRE (144) 
FOE So00s eco 

PRINT TARC6) "BAR GRAPH" 

aes ee 

PRINT 


PRawT REE eo dee ORIN GY. AMS” 


PRINT 

FOR T= TO 1! 

PRINT MNTHE(T) "2"; 

DAT$="" 

INFUT DATS 

NINTH (T) ®YAL (DATS) 

NEXT 

PRINT 

PRINT "PRESS A KEY TO VIEW" 
GET Re : Lf fee"" THEN 408 


1 REM RRKEKE REE RAED 


REM * SHOW GRAFIL 
REM PERK KERA ER ERE S 
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PRINT CHRECL47): 
BAS=7682 

FOR T=@ TO lt 

IF MNTH(T)<19 THEN NEXT : GOTO 63g 
T=12 

NEXT 

FOR T=2 TO 11 

MNTH(T) =MNTH(T) /F 

NEXT 

GOTO S5Q 

FOR T=2 TO 11 

PRINT MNTH$(T) 

LF MNTH(T)=@ THEN 499 

FOR S=BAS TO BAS+MNTH(T)~{ 
COKE §,D 

FOKE SEM. Q 

NEXT 

LAS=BASI AM 

NEXT 

PRINT 

PRINT "PRESS ANY KEY TO RUN" 
GET R$ : If fee " THEN 74Q 
RUN 

CFEN 15,8.15 

INPUTHIS, A$, B4 
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Cash Flow 


This type of program is used by many different business people 
to gain knowledge when deciding on an investment. With a 
given investment and a known cash flow, the program deter- 
mines what the rate of inflation would have to be to equal the 
initial investment. This percentage is evaluated against known 
rates of inflation to see whether there would be any real gain 
in such an investment. For example. let’s say that a company 
was thinking of investing $100,000 in a project that would have 
the following cash flow: 


Year 1 $50,000 
Year 2 $40,000 
Year 3 $30,000 
Year 4 $20,000 
Year 5 $10,000 


If the inflation rate were just under thirty-three percent for 
each of the five years, the investor would break even. However, 
since inflation, in the United States at least, is not that high, 
the rea] return on the initial investment would be pretty good. 
It does not matter whether the cash flow increases or decreases 
over the years of the investment, the program will determine 
what the percent on the investment would be for the period of 
return. 


There is some error built into the program to save execution 
time. If you wish to increase or decrease what would be an 
acceptable error, you may do so by changing both the percent- 
age increment and the level of error. It also provides a user 
entered “starting point” so that you can guess what the rate 
of inflation would have to be to break even. The program shows 
you how close you are and then works up or down to find the 
correct rate. Again, this can be changed to a fixed beginning 
point 1f you wish. 
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REM CREEK LER EYRE ER 
MEM ¥ THMPFCRHATIGN & 
COM Ye ee NRE Y OER RE ER 
PRINT CHES (147) CHRYCL44} 


i 
PigleG, 2OG 7 fae 
pee ee 
CRINT 
INPUT 
PRINT 


C 

: 

PRET TP DOW POR TEARS Xs 
pA UT. CEOS 


RP ER Pe CE On Re ee 
PATESRATE/ 1Q@ 

REM FEE RENE HERE RK HEE ES 

MEM # CALCULATE FAT ¥ 


PEM XXX SEEKER VER RE EES 


PO eh Ae CES 

WARCNIT SALE CRT eC AP ERATED 
SUMN=SUNICR C7 | 

icra 

REM MX¥MEX ERR ESM RRR N ERR KEKE ES 


FEM £ ERROR LEVEL SET TO #208 4% 
OEM SEXY RSA REL REY ERE RNA REK ED E TY 
If SUMS CPRINGIPAL 280) THEN 882 
IF SUMS (PRINCIPAL ®300) THEN 90 
CEM CHEEK ERR KES H REY ER EH 
RoM THE @BCTUAL RATE ¥ 
REM REX EME MERE R EME HYG 


age 


vat 
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DALI. LV aay us ee en ea 


Yim Niue Aten ay Amity fr my, YO AME 
LPUT VE p, 40 GF Cast PLOWs yn ona Rt 


PRINT "ACTUAL RATE Loi 

R=RKATE*1 OG 

Peed ale ube oa 

PRINT "ABS. ERROR 39 $" SUM-FRINCIPAL 
ce elas 

PRIN 

PRINT "ANOTHER CALE. (Y/N) " 

GET AF : ITF At="" THEN 782 

IF AgS"Y" THEN RUN 

IF At<?"N" THEN 7a@ 

END 

PEM BREE RR EK HEY 

ROM TOS LOW # 

PEM XR EMH EM REX 

PRINT RATE#1@@ "2", *$" SUM 

IF (PRINCIFAL-SUM) 31098 THEN RATE=RATE-. 
GOTC 8ée 

RATEHRATE .O8i 

SuUM=@ 

UOTO 428 

REM SEX RKF KERR KS 

REM * TOO HIGH # 

REM RERERY EEE ENS 

Pree ADEM ONG ta 

TF CSUM-PRINCIPAL) 21808 THEN RATESRATE+, 
GOTO 95 

RATESRATE?. Qt 

SUM=2 


; COTO 438 
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Interest Rate 


When you put money into interest earning programs such as 
the money market, T-Bills, or even a bank account, it’s nice to 
watch your money grow. When interest is compounded with 
the principal, it can grow at a geometric rate. That’s really nice 
to watch! This little program will show you the growth rate 
when the initial investment, the interest rate, and the period 
of compounding are known. While entering the figures, you 
will quickly be able to see the difference between interest rates 
and compounding periods. The program is quite simple and you 
can easily add modifications for your own particular applica- 
tion. (If you are involved in sales, customers like seeing their 
investments grow too!) 
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INTEREST RATE 


108 PRINT CHRE(i47) CHRS (144) 

Lie PURE. 36e/ oo 

PAG REM XK RKEK ERE FHKE KX RE REE EER EER ER ERY 
Z21@ REM * ENTER PRINCIFAL & INTEREST +# 
DP2G REM EKER ERM AYR X ER ERE RERUN LEEK EH ERYE 
220 PRINT 

248 PRINT 

coe TMPUT “Ei, TAVES TNE aS PRIDRET PAL 
268 FRINT 

eee TRIN 

200 INPUT "INTEREST RATE: "3RATE 

290 RATE=RATE/1O@ 

S@QO PRINT 

S1Q INPUT “HOW MANY YEARS: "sSYEARS 

Ze0 PRINT 

34@ PRINT "WHICH INTERVAL" 

548 PRINT 

SoU oP Rae Sele ERR 

360 FRINT “i2> QUARTERLY" 

578 PRINT “237 MONTHLY” 

38@ FRINT 
39@ PRINT "CHOGSE BY NUMBER" 

4Q@@ GET AF : IF A¥="" THEN 488 

Ai® A=VAL CAP) 

4728 ON & GOSUB 302,608,788 

A2O FRINT 

AA PRINT "@FTER" YEARS "YEARS," 

4A5Q PRINT “YOU WILL HAVE #" PRINCIPAL 
460 PRINT 

470 INPUT "ANOTHER CY /H) "3 ANS 

49@ IF ANF="¥" THEN RUN 

4990 END 

SOQ REM SEEKER HERE SER RER ES ER RR RS 

S12 REM eee YEARLY CONFOUND 4x 

SPQ REM FEREKSEEEERER ER REE HREERYE 

SoO FOR X=!t TO YEARS 
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SUM=PRINCIFPAL ERATE 

PRINCIPALS RINCICAL+SUM 

NEXT 

RETURN 

REM FER REES EERE O EEE RK HREES 
REM #88 QUARTERLY COMPOUND #ex 
REM EERE KKH ER ER EN EEK EERE RE RERS 
RATCSRATE/ 4 

FOR X= TO YEARS #4 
SUM=PRINCIPAL#RATE 
PRINCIFALSPRINCIFAL+SUM 

NEXT 

RETURN 

REM HEHE ESE RHEE EKER ERO REYES 
REM **# MONTHLY CONFOUND wes 
REM UE EERNX ERE EEL ER EK EEK ERY 
RATESRATE/12 

FOR X=1 TO YEARS#12 
SUMBPRINCIPALHERATE 
PRINCIPALSPRINCIPAL+SUM 

NEXT 

RETURE 
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Checkbook 


Balancing a checkbook can be a tedious task, and there is 
always an element of human error. With a computer, that task 
becomes more accurate and less time-consuming. Enter a 1 to 
input the starting balance. Then, using menu options 2-4, enter 
in all of your checks, deposits and adjustments. Press RETURN 
if you have no more to enter. Then enter a 5 when you would 
like your ending balance calculated. Once this is done, enter 
a RETURN to restart the program, or any other key to continue 
where you left off. 
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A . 


CN oA oh CF pp PP HB LP DP CW or cA 
Tom tH 6S 


PRINT CHRS(147) CHRS(144) 

POKE 346879,25 

PEM X HERE REEEEHEREESE 

REM * PRINT SCREEN + 

REM EX KEK KEK AEER ER EY 

PRINT CHRE(L47) TAB(S) "CHECK BOOK" 
PRINT 3 PRINT 

PRINT "WHICHS” 

PRINT 

PRINT "1> START BAL.:" BALANCE 
PRINT "2> ENTER CHECKS" 

PRINT "3> ENTER DEPOSITS" 


P FPRINT “4> ENTER ADJUSTMENTS" 


PRL] “OS? CALC. END BAL.” 
GET R$ : TF REe"" THEN S32 
ReVAL CRE) 

If Ril GR ReS THEN 2328 

ON R GOTO 420,538,638 ,738,832 
FEM FE RHRER EER HERERHEN # 

REM * ENTER BALANCE * 

PEM SERRM EKER HEE EHEHESE 
PRINT CHR$(147) "ENTER BALANCE: "3 
INFUT BALANCE 

GOTO 23 

TEM HEE KEE RK HEHE REESE 

REM ¥ ENTER CHECES * 

PEM KHESHEN HER HEUERHEY 

PRINT CHRE(147) 

PRINT 

PNUD SCRECH. AM tao S CHEE 
LF CHECE=@ THEN 238 
EPALSEBAL -CHECE 

CHECE = 

COTO 542 

REM SERRE HER EK HER EE EES 

Rene SEWER CEM Tas 

REM SEX KR ER EE ER EER HES # 
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630 
&48 
652 
568 
67@ 
E82 
&90 
7@@ 
710 
oe 

738 
742 
75Q 
762 
77Q 
788 
798 
G8? 
1a 
320 
828 
G49 
852 
8Gk 
O78 


PRINT CRRS (147) 

PRINT 

INPUT "DEPOSIT AMT. :": DEP 
IF DEFHRQ@ THEN 233 
EBAL=EBAL+DEP 

DEP=Q 

GOTO 648 

REM FERRE EMER EERE RR ER EEE 
REM * ENTER ADJUSTMENT + 
REM EHX HERHE MERE MERE KH HES 
PRINT CHR (147) 

PRINT 

INPUT "ADJ. AMT.: "3 ADI 

IF ADJ=0 THEN 22 
EBAL=EBAL+ADJ 

ADJ=8 

GOTO 742 

REM SX HEHE RHE RE EX RHEE RH HER 
REM * CALCULATE BALANCE * 
REM ERNE ME RKRHERHE EEK RHER 
PRINT CHRS (147) "ENDING BAL. =" 
EC=DALANCEtEBAL 

ENE EE 

PRINT ¢: PRINT 

PRINT "RIT RETURN TO START OVER, ANY OTH 


ER TQ CONTINUE" 


889 
e908 
78Q 


CET R¥ s IF Re="" THEN 282 
IF RE=CHRE(13) THEN RUN 
Go. 235 
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Inventory 


What is a business section without an inventory program? That’s 
exactly what I thought to myself, so here is the program. This 
inventory program will store an almost unlimited number of 
items in a sequential disk file, and the quantities of each in 
stock. To start the program, enter a 5 to initialize the inven- 
tory file. Enter a Y for Yes (to initialize the file), and when 
the computer is done, you are ready to start entering items. 
Back in the main menu, type a 1 to enter items. The computer 
will prompt you with ITEM:. For example, enter the item, 
CARBURETORS. Now the computer will ask you for a quan- 
tity; enter the number of carburetors you have in stock. After 
the computer is through storing the information to disk, it asks 
you for another ITEM. If that’s all you want to do, then press 
RETURN. When an X is shown and you hit RETURN, you will 
be put back into the main menu. Now you are ready to view 
your entries. Enter a 4, and the computer will ask you if you 
would like to direct output to the <P>RINTER or to the 
<S>CREEN. 


Ee | - o 
Fla? 
area 
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Enter an S, and the computer will display all the entries you 
have made so far. After a while, your supplies might get de- 
pleted or altogether eliminated. If you wish to update a quan- 
tity, enter a 3. You will then be asked which item you wish to 
update. Enter CARBURETORS. Now you will be asked for a 
new quantity. Enter whatever number you wish. When you hit 
RETURN, the computer will go and update your entry for you, 
showing you the file’s new status. If you would like to delete 
an entry altogether, enter a 2. Now enter CARBURETORS. 
After this is done, your entry will be erased from the file forever. 
To exit Inventory, enter a 6 at the main menu. 


INVENTORY 


128 PRINT CHR$(147) CHRE (144) 

LG POLE S638794 20 

120 OFEN 1,@ : BESHCHRE (157) 

130 CE=CHRE (13) 

2OG@ PRINT CHR& C147) TABCS) "INVENTORY" 
es VELAD & FRENT 

220 PIE. Cee et 2b PRN, 

2oM PRINT "<)> ENTER LTTEM” 

AO eR “oo DEE Te En” 

eed FC RINT “13> UPDATE QUANTITY? 
2oe PRE “ee DOM INVENTORY 

gee FRI “oes. PALE LACEZE Fue 
SOO TAL Fe ee TS 

27 PRIA SHR T Ee Pritt PRINT 
200 FRINT TAB(S)s 

219 OINPUT#L, A$ 

220 G2 AL LA4: 

338 IF Asi QF Abs THEN PUN 

24@ Ot Oo TOL Sy bo O. Lota 6 oat You 
4QQ REM KAY KEYNES 

410 REM & GUY s 

420 FEM Cee eEENG 

43@ PRINT CHRE(147) "BYE BYE" 

44Q FRUNT PRINT END 


148 


tt Ploe- FS 
Sqgoeaye ages s&s 


cn cn cn cn cn on on 


cm cn > 


REM KX FKEKRE KERR ES 

REM * ENTER ITEM ¥# 

FEM XE HHEREERERE SEE 

PRINT CHRE#(147) TAB‘4) "ENTER ITEMS" 
PRINT +: PRINT 

PRINT “ITEM: X" BES: 

INPUT#1 ITEMS 

IF ITEM#="X" THEN RUN 

PRINT 

PRINT "QUANTITY: x" BES; 

INPUT#! ,QUANT$ 

IF QUANT#="X" THEN RUN 

ODPEN 4,8,4,"@: INVENTORY ge racy oe 
OPEN Se85.0e MPCOPY,S. 4" 

INFUT#4 14,04 

IF T$="EOF"” THEN 712 

PRINT#S  L¢C$QeCH 

GOTO 442 

REM AX HERE ER ERE RES 

REM * END OF FILE x 

REM ARH K EER K EER RER 
PRINTR#S, ITEMS CHQUANTECSE 

GOSUB 153 

GOTO 542 

REM XHHHEEHRERERERES 

REM * DELETE ITEM ¥ 

FEM SERENE RE EHR E ES 

PRINT CHR (147) TAB4) "DELETE ITEM" 
PRINT : PRINT : FR 


P PRINT "TEM TO DELETE: X" BK: 


INFUT#1. ITEMS 
IF ITEM$="X" THEN RUN 

OPEN 4,9,4,"Q: INVENTORY FILE,S,R" 

OPEN 5,9.5,"Q:COPY,S,W" 

INPUT#A 1,04 

IF I$="ECF" THEN 989 

IF If=I TEM THEN QUANT#=O# +: Feit : GOTO 
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930 FRINT#H#S,1$C$Qs 

948 GOTO 9282 

GSO REM KEKE RE RK EREER HH 

96@ REM 4 END OF FILE # 

O70 REM KER X KHER EER HERE 

98@ GOSUB 1538 

99@ PRINT $: PRINT 

100@ IF F=@ THEN PRINT "ENTRY NOT FOUND!" 
GOTO 1032 

{Bi@ PRINT "ITEM: " ITEM#,"QUANTITY:" QUANTS 
102@ FRINT CHRS(18) "DELETED" 

1930 IF PEEK (197)=64 THEN 1029 

1049 RUN 

LL1QQ REM EER HKKKEKEERERE 

111@ REM * UFDATE QTY. #*# 

L128 REM FEEREHRE HEHEHE HEHEHE 

113@ PRINT CHRE(147) TAB(2) "UFDATE QUANTITY 
114@ PRINT : PRINT 

115@ FRINT "ITEM TQ UPDATE: xk" SKF: 

1160 INPUT#iL, ITEMS 

117@ IF ITEMS="X" THEN 288 

1188 PRINT : PRINT "NEW QUANTITY:X" BEF: 
1190 INPUT#1 ,QUANTS 

1200 IF QUANT#="X" THEN 22@ 

L121@ F=@ 

1220 OPEN 4,8,4,"Q: INVENTORY FILE,S,R" 
P2350 OPEN 3, 8108 UPCory seu 

1242 INPUT#4. 1¢,Q$ 

1250 IF If="EOF" THEN 1482 

1260 IF JI TEMt THEN 1328 

1270 PRINT#S,TFC8OF 

1260 GOTO 1248 

L299 REM FEHR HERE HEHEHREES 

1208 REM * ENTRY FOUND # 

LZLG REM FHEEEHEE HEHEHE EEE 

{320 PRINT : PRINT : Fei 

1330 PRINT "GLE QUANTITY :" Q4 
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es | 
a 


a ee oe Oe oe 
cr ro cn on oR 
~JI G&G Cit 


Soo gs & 


mM 


HH 


C carariai aes 


PRINT ; Q#=QUANTS 

PRINT "NEW QUANTITY :" OF 

GOTO 1279 

REM HEHEHE RHE ER HRE 

REM * END OF FILE » 

REM HEHEHE ERE E ER EHH 

PRINT +: PRINT 

IF Fe@ THEN PRINT "ITEM NOT FOUND" 
GOSUB 1532 

RUN 

REM KEE KER REKY XR ERE 

REM * CLOSE FILES » 

REM XE RKKK EKER EE EERE 

PRINT#H#S, "EOF" CC "EOF" 

CLOSE 4 + CLOSE § 

OPEN Fees ks 
PRINT#IS, "SO: INVENTORY FILE” 
PRINT#IS,"R@: INVENTORY FILE=CORY" 
CEOSE 15 

RETURN 

REM F¥HEERKER ER EX 

REM * DUMP FILE »* 

REM KY ERKKEREREEY 

PRINT CHRE(147) TABSS) "DUMF FILE® 
Pin oe PRT 

PRINT "<PORINTER/<S3CREEN:S" BES; 
INFUT#1 OF 

IF OF="X" THEN ?Q 

IF OF="5" THEN 1718 

CEN 264 

PRINT#S,CS,.TABC{@) “INVENTORY FILE" C$ 
OPEN 4,8,4,"Q@: INVENTORY FILES fm" 
PRINT CHR (147) 

INFUT#4,1¢, 04 

IF I¥s"EOF" THEN 1842 

If OF="S" THEN 1782 
PRINT#2,"ITEMs" 14 
PRINT#2,"QUANTITY:" Q€ C4 
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PRINT "ITEM:" 1[$ 

PRINT "QUANTITY:" Q€ CF 
GOrO- 275 

REM HHRKER EERE EH EES 

REM * END OF FILE # 

REM HHHHHHEREERR EEE 

CLOSE: 49 CLOSE 2 

PRINT + PRINT "END OF FILE" 
IF PEEK (197)}=64 THEN 1868 
RUN 

REM HERES RHEAEERERREERE 

REM * INITIALIZE FILE * 

REM HEN EX EERE FERER ERE 
PRINT CHRE(147) TABC2) "INITIALIZE FILE 


PRINT 3 PRENT 

PRINT "ARE YOU SURECY/NI IN" BEE; 
INPUT#1 AS 

IF ASfc"Y¥" THEN 20 

Orin foyty to 
PRINTSIS. “SOs INVENTORY FILE” 
CLUS. is 

OPEN oe Gs.04- OFIN EMORY ETE, Sache 
PRIN Hos 2Or™ 9Os: “EO 

CLUDES 

RUN 
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Section 5 


Utilities and Programming Aids 


e Character Creater 

® Sequential File Reader 
e Menu Ideas 

e Alarm Clock 

e File Restorer 


UTILITIES AND PROGRAMMING 
AIDS 


Since this is the Utility and Programming Aids section of the 
book, I thought it would be a good idea to include some machine 
language subroutines. I chose machine language for several 
reasons. First, it is compact. Second, machine language pro- 
grams are less likely to “bomb” (malfunction) than are BASIC 
ones. Another reason, and perhaps the most important, is that 
machine language programs are far faster in accomplishing a 
given task than are BASIC programs. 
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The programs in this section are shown in two formats. The 
first is the assembler format (this is the easy-to-read version). 
These types of listings are done with what is called an assem- 
bler, a very useful machine language tool. For the programs 
presented here, I used the MERLIN assembler by Southwestern 
Data Systems. The other format is that of the DATA statements, 
which can be read and POKEd into memory by BASIC. All of 
these routines can be put into memory anywhere without mod- 
ification, except for the LOAD and SAVE routines which must 
be altered. The MERGE routine is particularly useful with the 
hi-res draw program. Some possible locations of where to put 
these routines are: 


HEX DEC 
S8000—-S9F FF 32768-40959 
$CO00—-$CFFF 49152-53247 


These are the hexadecimal ranges and their decimal equiva- 
lents. Remember, you use decimal from BASIC! 


Let’s see an example of how to use one of these subroutines. 
Here is the BASIC data statement for a fictitious subroutine: 


DATA 96,69,53,255,32,44,96 


Let’s say we want to start it at location 49152 in memory. Here 
is how you would use it from a program: 


19 FOR T=49152 TO 49152+L 

24 REM LIS LENGTH OF SUBROUTINE-1 
3Z REM IN OUR CASE IT'S 7 

4Z READ P 

5Z POKE T,P 

64 NEXT 

76 SYS 49152 

80 DATA 96,69,53,255,32,44,96 
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That’s all there is to it. The SYS command will execute the 
machine language program at the specified address (in our 
example, location 49152). The programs and subroutines in this 
section enhance any BASIC or machine language program, and 
they will make certain programming problems a lot simpler. 
Also, they represent the first step into more advanced 
applications. 


157 


Character Creater 


Although designing programmable characters is easier to do 
than designing sprites, it is still time-consuming. I found it ten 
times easier to have a character editor. This one is extremely 
easy to use. Your work space is an 8 x 8 area. You move a 
crosshair around on the screen, and use the space bar to set 
the various bits of the character. To control the crosshair’s 
movement going up, down, left and right, type |, K, J and L 
respectively, with the space bar plotting dots. The function keys 
also have particular purposes: pressing F1 once will display 
your newly designed programmable character; pressing F1 
again will display the character’s DATA statements; and press- 
ing F3 will clear the screen so you can start again. 


EDITOR 


159 


CHARBE | 


L@9 
110 


ay 
ar 


12d 
14Q 
ain 
21g 
228 
228 
~4A® 


ye 
de ed 


268 
n7Q 
288 
278 
389 
312 


77 
ww ae \ 


and 
‘tal 


342 
35 

340 
<7 

360 
399 
400 
Aig 
420 
430 
590 
510 


ER CREATER 


rae. ee 
PORE 3 
PORES 
PORE § 
CLR 
EM ER XERKEH ERP ERIKS 
REM # FEINT SCREEN & 


CHR (144) 


REM FREER SYR ERERK ESE 
PRINT CHRE(L9) TABC2) | 
PRINT "CHARACTER CREATE" 
PRINT CHRE(32) 3 
FOR T=1 70 8 
PRINT CHRE(164) | 
NEXT PRINT 
FOR T=! TG 8 
ORINT GHRE(167) TABS) CHRE (i163: 
NEAT 
PRIM BWREt S20 4 
FOR T=1 TO 2 
PRET CHAS $6373 
NEXT 
PRINT 
Be tele CHAS ES) 
PRINT 
RESTORE 
FOR T=@ TO é 
heel 18 
FRINT TABCIG) TF 
MEA | 
REM EXPE RRERRERAR IRR HEREESE 
REM * INITIALIZE FOSTTION # 
FEN EX EERENEEYREE ERR ERER ERE 
Loce7 723 
Y=Q 
COSUB i@3@ 
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rs 


CG 
mS 3 oO ta 
MS 2 & © £3 


eo 


~~} “4 Oe rr OD 


ee air | Sat J os 4 
Ch -S G CM om fet pg ore 
Mee © GSS 8 & rt 


£9 (OH -4 74 + 
] 


— & -3 


ie 


aot 


ea 
TT FU TI mS 


a mea 


SHAME NY ER UY KY OR 


GET TEA PRESS 
YRX RENN ERE HHH EF 


x 


PORE D9? 64 & DapE EY ¢ 

Ir R=64 THEN 638 

IF §S=) THEN 47: 
Pte Cae 

if RJD THEN LOCSLOG=] = yeye] 
iF A= | THEN Xe7 + LOCeLOC+e 

IF Refi THEN LOCSLOC+i + yaxet 
be ASO THEM eee e LOCaL pee 

TF R=44 THEN LOCSLOC+22 + Yayet 
IF LOC? 7844 THEN LOCH77254+¥ 3 veg 
IF Rei2 THEN LOC=LOC- 22 : Y=y-{ 
TF LOCS 7725 THEN LOCH7S979+X ; yeog 
PFO ORS47 THEN RUN 

If Reif THEN 732 

LPs 29 THEN 1130 
55-8 
COSUB 1038 
Pore. PoP abe 
PO or eue 
GOTO 429 
KEM FEY CR DI ae, 
REM * FUT A BOT GN THE SCREEN # 
HEM ¥RERR ee Speer ea ene 
RUBE. GOC. LSet 
PORE LOC+238728,é 
Poe. bP eed 
Ss 1 
GOTO &2@ 

LEM FURS ER ERY YER EX SK ERY 

mem # CROSS ON SCREEN 4 

EM AEX EERE KR KER ERR RY EY 

Por aed 
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¥ 


IAM ACTER 
CY YY URES EELS RR SS 


ial 


my 


PRR UE ERE MEEK RRR 
SHOW 


eens 


\ 


111 


cS 


‘ \ 


t 
{ 


a 


rye 
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{ 


bad 


r 


PAG 
VY ELEY EYEE K ERNE ERD 


YRYEKRY PARTE LTR RRR 
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Sequential File Reader 


Every once in a while, it seems that I have to check out what’s 
ina SEQ file, whether it’s to verify its contents or just out of 
plain curiosity. That’s where this program started. Given a file 
name, File Reader will go through and dump the contents of 
the file to the screen or to a printer, depending on which you 
specify at the beginning of the program. 


As you become more involved with communications on the VIC- 
20, you will find that the contents of SEQuential files are very 
important. This is because most computer-to-computer trans- 
missions use sequential files rather than program files. 


PILE READER 


LQG PRINT CHRS (147) CHR$ 61443 
110 FOKE 24879,295 

128 GPEN 2,¢ 

2OQ REM FER KRY EHR E KE REE 

2£i0 REM * GET FILENAME « 

me REM XX KX REY HRM R ERK 

£20 - PRI SCHR A ay Te Sa READ: "s 
242 INFUT#E FILES 

2uQ PRINT 

2o0 PRINT "<PIRINTER/<S3CREEN:": 
27M TNE TR es 

wee OL Dg AN ge eG oT Ne ion 
272 IF OF="S" THEN 43g 

SOG OPEN 1,4 

ou Ao. 

SQ REM HREKHREKHEU EX 

41@ FEM *« GET DATA * 

420 REM KEE EMH HEEER 

47@ OPEN Ageang Ot Pe LEE eet Se 
44S PRINT 

458 FRINT 


a 
ans 


, 


‘ 
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460 GET#4,At 

470 PRINT A€: 

430 IF ST=Q@ THEN 442 

490 LF OF="F" THEN FRINT#L +: CLOSE 1 
50 CLOSE 4 

SiQ FRINT 

S20 PRINT "END OF FILE” 
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Menu Ideas 


Menus are an extremely important part of any program. An 
attractive menu could mean the difference between whether a 
program is successful or not. An easy-to-read, easy-to-under- 
stand menu is the best way to start off any program. Menu 
Ideas gives a few pointers on the proper way to make a menu. 
Keys A and Z move the marker up and down next to your list 
of choices. Pressing the space bar will choose the item that you 
are currently next to. 


Your program 
iS served sir. 


165 


MENU 


192 
112 
128 
132 
140 
200 
210 
22 

240 
252 
250 
279 
280 
270 
388 
310 
220 
330 
340 
350 
350 
370 
390 
270 
40g 
410 
420 
430 
440 
450 
500 
519 
520 
57 


4Q 


IDEAS 


PRINT CHRS (147) 
Cc=2 

GCs25 

PORE 36677.56 

POKE 646,CC 

FEM PERK EKER ERE REY 

REM * FRINT MENU ¥ 

COM £ RHE EKHE REE EEE 

PRINT CHRS(147)} TABD(S) "MENU SELECT" 

PRINT 

PRINT 

PRINT 

PRINT CHRECLE) s 

PRINT "SPC=SELECT/ASUP/S ZT=DQWN" 

PRINT 

Pe 2") Se ree Oe 

PRINT "“ CHARACTER COLOR" 

Pee Se coe 

PORE (Se0s ieee hi aoe 

PORE GBaGO? Pel o et) aé 

GET Rf s Tf RE="" THEN 358 

POE: eee BCC a he 
Fog$="2" AND Cod THEN C=C 
TF R€=e"A" AND Ce@ THEN CsC- 


IF fi$=" " THEN 418 
GOTO 332 

ON C+il GOTG 33@,462@ 
PRINT 


CRINT 

PRINT 

END 

REM HER KK EKER EER ER EY 
Reto ® SCREEN ‘GULOR © 
REM FEE HEL EEE ERS HELE 
SC=$c+l 


IE SC3eoe THEN 2oSo 
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FOKE 36879,5C 

GOL SS 

REM HHH HHHEREEA HEX HEE EY 
REM * CHARACTER COLOR #¥ 
REM HERE REE RHE RE HREM HEHE 
CC=CC+] 

Le CC ey THEN. CCSe 

FORE 646,CC 

GOTO 232 
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Alarm Clock 


One of the many nice things about the Commodore 64 and VIC- 
20 computers is that they both have built-in clocks. Both are 
very accurate. These come in handy for games, telecommuni- 
cations, and just about any other application where time-keep- 
ing is needed. I thought it would be neat to have a functional 
alarm clock: a program where you enter both the current time, 
and the time that you want the alarm to go off. This can be 
handy if you don’t have an alarm watch or clock with sucha 
feature. It’s also just plain fun. When the current time is equal 
to when you set the alarm to go off, color and sounds abound! 
To turn the alarm status on and off, enteranO and an F ac- 
cordingly. Once the alarm has gone off, pressing F1 will turn 
it off. One warning though; keep the volume down so you won’t 
disturb the neighbors! 


—_ . 


Stinenaneninenroneeen nt 
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ALARM CLOCK 


1Q@Q@ FRINT CHRE(147) CHRE(144) 
eh POLE. 36679520 

JAD REM KEK KKREM HEHEHE EE EE XE 
2e0 REM ® Get CLOCK. EVE -e 

ee TEM RY KERN REE REE HRY HEH 
wot TNE Od oe. LEE. “Tee Ses 
248 IF LEN CTH$1 736 THEN 238 
2o@ TIE=TNt 

26Q FRINT 

ei FRINT 

SOQ REM FHEKHERER REE REY KER 
S10 REM * GET ALARM TIME & 
TORQ FEM FREER ERE KEE ERR RES 

330 INFUT "ALARM TIME: "sAT4 
3Z4AQB IF LENC ATE 634 THEN 339 
ABQ BEM ERX EEEL EXEL ER ES 

41Q@ REM * PRINT CLOCK * 

Q® ROEM CAR NN RH LEHRER ER 

AZM FRINT CHRE (L477) “ALAR OFF" 


440 FOR T=1 TO 7? 

45Q PRINT 

469 NEXT 

A7QG PRINT TAB(S) CHRE(L17): 

432 FOR tsi To 12 

45R PRINT CHRS(96): 

SOQ NEXT 

SiQ FRINT CHRS (105) 

S20 PRINT TAR(S) CHRECL25) CHRECL74): 
S39 FOR tT=i TO 8 

S40 PRINT CHAE COG): 

S5Q NEXT 

S60 PRINT CHRE (1? 4) CHE 425) 

S7Q PRINT TAB(S) CHRE(125) CHRECIDS) 
CHEE LE2E) CHRELEDS: 

S8Q PRINT TABCS) CHMECLES? CHAE (LTS): 
SOQ FOR Tel TO g 


(~ Tre 
oro 


\ 


re 

F 

1}! 
s 


\ 


S@@ FRINT CHRE(9S), 
iQ NEXT 
Ga PR: CHC. eee os. 
629 FRINT TAB(S) Ge a eee 
£489 FOR T=1 TO 12 
638 PRINT Bee ee em an 
S68 NEXT 
57@ PRINT CHRECLS9: 
TAG PEM ERR R ERR H ER ER EHS 
7i@ REM * MAIN ROUTINE #¥ 
FER REM EHR KE RE REX EEE KEY 
73@ GET RF 
74Q TF R$="A" THEN PRINT CHRS(147) + GOTO 33 
2 
POG Oe URS R TE Pe eee TO). NAL ROM OPE 
" + AS=@ 
768 TF RF=2"O" THEN PRINT CHRE (19) "ALARM ON 
"os &#Set 
ao GOS Et oe 
7932 TVS=LEFTE(TI4A. 4) 
P?GO TF VALCTTE  =VALCAT#) OND AS=1 THEN 924 
G@2 COG 728 
YEO PEM Ke eee RE Rd Y HY 
Si@ REM ¥* ALARM ON x 
TRO REM Rewer eye enyx 
Low One. Ges os ba 
740 FORE 36876,245 
958 FOR T=!1 TG 298 
260 NEAT 
379 FORE 34876, 
79@ GOSUB 11238 
990 Get AS : IF AFfPCHRE(1233) THEN 348 
i@@2 PRINT CHRE(i9! "ALARM QFE" 
igi2 AbS=2 
L222 COTA 73@ 
L109 REM EESHEX RHE KE HERES 
110 REM *# UPDATE TIME ¥ 
L120 REM BER EREYH XE REE EY 
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Li3@ PRINT CHRE(19) 

L1L4@ COR bed: 10 2 

L158 FRINT 

1168 NEXT 

1170 HOF*LEFTE(TIF,2) 

LEER MS aN LOS CTT a Oye? 

L19@ SEF=RIGHTE(TIE, 2) 

1208 PRINT TAB(7) HOS ":" MIF "i" SES 
L218 RETURN 
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File Restorer 


Here it is, the VIC-20 program of the century! How many times 
have you deleted a file from disk and then said, “It’s okay, I 
know what I’m doing.” How many times have you been wrong? 
I thought so. Don't worry, it happens to the best of us. I've made 
that mistake plenty of times, accidentally erasing files from 
my diskette. Don’t ask me how, either. Needless to say, I didn't 
make a back-up. This is why File Restorer was created. Now 
I’m so paranoid about disk crashes that I make three copies of 
anything I treasure. Using File Restorer is easy. When the 
program Is run, you will be asked for the name of the file you 
wish to restore. Next, it will ask you for the type of file to be 
restored (PRG, SEQ, etc.). The last two questions pertain to 
the drive and device number of the unit being used. When all 
the requested data has been entered, the drive will turn on and 
search the directory for your entry. If it is not found, a FILE 
NOT FOUND message will be printed. Otherwise, you will see 
FILE RESTORED up on the screen. You now can load and re- 
use that little gem of a program. Once you've scratched a file 
that you wanted to keep, don’t save anything else on that dis- 
kette, as it is likely to write over precious program data. In- 
stead, run this program immediately. Then, once you've restored 
the file and have it in memory, scratch it and then save it again. 
I hope that this is one of your least used programs. 
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PRINT CHRE (147) CHEE (144) 
POLE (S807 aco 

BE FSCHRE CLS?) 
NAMES="" 

PEM HE RHR EERE RH ER 
REM ¥ PUES TIONG * 
eM FX RERX EY VERY YE 
PRIWT CHR# (147) 
RAMEE s" " 

ENO Ree aa ao 


L 
[F NAMES="" THEN EM 

IF LEN (NAMES) 216 THEN 238 
FOR T=i TO 14 LEN CMANES) 
NAMCE=HAMES+CHRE (1603 
NEXT 


NAMES *LEPTS (NAMES, 14) 
pred 

PRINT 

PRINT "is SEQ" 

PR a Re 
PRINT "O32 USER" 


aE es a a a ae Vi 


i\acd 


aay 
PRINT “WHICH TYPE: 2": 
PRINT BR BRE BRAS 

HOUT TYP 


TYPOS THEN 468 
PRINT 
END 
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NT "DISK pea Q"s 
PRINT BEE ERE Bhat 

INPUT DEVS 

DEVEVAL (DEVE) 

IF DEY.°8 AND DEVI? THEN 320 
PRINT 
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PRINT “DRIVE#: @": 

PRINT BRE BEE BES: 

INFUT DRY 

DRVEYVAL CDRS} 

TF DRVC?O AND DRVCS1 THEN 532 
PEM CRN S MAK ERNE EEE RE EE 

REM X CHANGE DIRECTORY # 

PEM PRSHRERA RHA ERE REE K HE 
FRINT 

PRINT "READING THE DIRECTORY” 
PRINT 

Cro oy Deve Ta 

OPEN Da wew aia 4" 

SEC=1 
PRINT#I Ge "Uist: S4DRV eT esgec 
X=} 

FOR TsG 7O 2297 STEP 32 


738 FILES (xys"" 

74Q FOR Set TO 16 

5Q SETHS, As 

roQ FILES(XI=C ILLES (XI HAs 
70 NEXT 

ad IF FILES (X) =NAME$ THEN 930 
as) XYaX¢ } 

gO8 NEXY 

S10 PRINTHIS,"B-Pa"sSsd 

S20 GET#S SECS 

830 SECRASC (SECS) 

G40 IF SEC<1? THEN 49¢@ 

250 PRINT 

B60 PRINT "FILE NOT FOUND!” 
870 PRINT 

380 END 

TAU REM SHREK KKK ER EXE REE 
210 REM *##* NANE FOUND ### 
FLO REM REKKK EK KERR ERE REESE 
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929 BYTEST-3 
949 T2205 


Pad NEAT 


260 FRINTHIS,"B- Pi" 


970 FRINTSS ,CHRE (TYP 
900 PRINT#HIS, “U2: 


299 CLOSE 18 
1@@@ CLOSE 5 
1@i@ PRINT 

1020 PRINT "1T 3 
1928 END 
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From the author of 


VIC-20 


EXPOENCE 


The VIC-20 Experience on disk! 


For only $15.95 with this coupon, you can have 
all the programs contained within this book on 
one diskette! Save yourself hours of typing and 
de- bugging. 


All the programs contained on the diskette are 
listable, copyable and contain REM statements 
which identify each part of the program. You can 
list and save sections of the programs for use in 
your own programs. 


The VIC-20 Experience diskette helps you get 
the most out of both your VIC-20 Home Com- 
puter and The VIC-20 Experience. 


Send $15.95 plus $2.00 shipping and handling 
charge to: 


®) DATAMOST, 


20660 Nordhoff Street, Chatsworth, CA 91311-6152 


Name __ eee = ores 
Address __ eee ere 
City. ssi Tt—“‘Cé‘C;«SStaate = CZ = 
0 MASTERCARD O Check 

OC VISA C1] Money Order 
Credit Card # _ Expires 


Signature (for credit card) ene 
California Residents add 6!4% sales tax. 


*VIC-20 is a trademark of Commodore Business Machines, Inc. 
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©. VIC-20 


THE NEAT TIME SOMEONE ASKS, “WHAT CAN 
YOU REALLY DO WITH A VIC-20 HOME COM- 
PUTER?” SHOW THEM THIS BOOK! 


It's an important question. One that deserves an answer. After all. 
you have one of the most powerful tools in the universe at your service. 
But, .. where to begin? 


THE VIC-20 EXPERIENCE will help you learn about your Commodore 
VIC-20. Take that important first step and learn how to program 
BASIC by keying in completed programs. What if you could care iess 
about programming? Simply key in the useful programs as they 
appear and save them to disk or tape. Either way, you'll soon havea 
library of software that can be used with everything from daily chores 
to complex business applications! 


Written in Commodore BASIC, each program follows a standardized 
format and is clearly documented. These easy-to-follow programs 
cover home, educational, entertainment, business, and utility appli- 
cations. In addition, the programs can be modified to meet your par- 
ticular needs. 


What can you really do with a Commodore VIC-20? The answer lies 
within these pages. 


ISBN 0-88190-296-9 


DATAMOST 


20660 Nordhoff Street, Chatsworth, CA 81311-6152 
(818) 709-1202 


